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INTRODUCTION 


The VIC 20 is an exciting computer, designed to ensure you can easily make the best 
use of the computer's colour and sound potential. 


This book has been great fun to write, because the VIC ‘co-operates’ so well with the 
games programmer. The BASIC is fast and unambiguous, the range of noises and 
colour effects is practically infinite, and — despite the slight limitations of the large 
graphics — allows some splendid screen displays to be created, especially with the 
POKE command. 


Although | hope you'll enter these programs as we've listed them here, and enjoy 
playing them, the real value of a book like this lies in what you do with (a) the 
programs to adapt them to make them your own; and (b) the ideas you get from 
them to use in new programs of your own. 


I've tried to chose a wide range of programs, to show how flexible the VIC can be, 
and to give you some ideas of the kind of programs you can write, and the easiest 
way to achieve the effects you desire. 


The printer reproduces all the VIC graphics, and to make the listings as clear as 
possible, we've printed them just as they rolled off the printer. Despite this, some of 
the colour commands may be a little hard to fathom out. Here’s a list of the colour 
commands, along with REVERSE ON and REVERSE OFF, as reproduced by the 
printer. This should help in reading the listings. 


18 REM "gs" BLACK 68 REM "fi" GREEN 

15 REM 65 REM 

26 REM "a" WHITE 7O REM "@" BLUE 

25 REM fo REM 

3@ REM "MM" RED 88 REM "fl" YELLOW 

35 REM 85 REM 

48 REM "a" CYAN 96 REM "3" REVERSE ON 
45 REM 95 REM 

36 REM "@" PURPLE 106 REM "@" REVERSE OFF 


As well as using the commands as listed, several programs have REM statements 
explaining which colours have been used. If you can’t work out what a particular 
colour command is, use anything you like. And by all means, change the colours to 
suit yourself once you've seen what a particular program is meant to be doing. 


The book follows a straightforward plan. The program is introduced, and with some 
of the programs, information on how it was written — and how it achieves the effects 
it does — is included. 


Well, | guess you're anxious to get down to the serious business of games-playing 
right now, so I'll end this introduction and let you get on with it. Just before | do, I'd 
like to thank the friendly team at Adda Home Computers Ltd., 154 Victoria Road, 
London, W3, who have helped me greatly. 


Good games-playing. 


TIM HARTNELL 
London, November, 1982 


ZOMBIE ISLAND 


Your plane has crashed on a remote island, where the only topological features are 
round green swamps, and the only inhabitants mindless zombies, shown on the 
display as letter Z’s. The zombies are out to get you, a black ‘clubs’ symbol, You can 
move anywhere on the island, except through a swamp. The zombies are pretty 
stupid. They can see you, but not the swamps, and = as is well known among 
zombiologists — zombies drown instantly in swamps. You survive only if you 
manage to lure the zombies into the swamps. 


You control your movements on the island with four key = “A” — up, “2” — down, 


,""—left and “.” — right. Although you may find it a little strange using these keys at 
first, you'll soon find you are automatically pressing the right key for the direction in 
which you want to move. It will help you, in the early stages of using these keys, to 
note that the ‘greater than’ and ‘less than’ symbols point in the direction you will 
move if you press that key. These four keys are used in a number of programs in this 
book, and you may well want to use them in your own moving graphics games. 


The number of zombies on the island is determined randomly (line 2055) and 
neither they, nor you, can move outside the area bounded in purple on the screen. 
The number of drowned zombies is shown near the bottom of the screen, as is the 
number left alive. The zombies make quaint noises as they move about, and drown 
with a dramatic aural flourish. The zombies move in a reasonably intelligent way, 
but have some preprogrammed stupidity to give you a chance to survive. The fewer 
zombies there are left, the faster they move, so the last one alive can give you a run 
for your money. Each round of the game ends with an echo of the noise your plane 
made when crashing. After a short pause, a new game will start automatically. 


16 REM ZOMBIE ISLAND 

26 GOSUB2060 

34 GETS#: IFS#=""THENSS=T£ 

40 AE=A: BE=B 

SQ@ IFS$="A" THEMHA=A~-22 : B=B-22 
60 IFS#="2"THEMA=A+22 : B=B+22 
76 IFS$="."THENA=A+1 : B=E+1 
86 IFS#=","THENA=A-1' B=B-1 
90 W=PEEK CAS 

196 IFW=127THEHA=AE : B= BE 

11@ IFW=26THENA=AE : B= BE 

126 IFW=S1THENA=AE : B=BE 

13@ POKEAE,1:POKEBE, 1 

146 POKEA, S28: FOKEB.& 

156 T#=S4 

166 REM CONTROL ZOMBIES 

176 FORR=1TO'"Y 

186 Uso 


_———3=, 
2 
L(G, 


185 
198 
266 
218 
22a 
225 
238 
0266 
235 
240 
268 
278 
290 
295 
348 
316 
312 
315 
326 
408 
402 
405 
466 
407 
408 
4208 
438 
446 
458 


IFPEEK(Q¢R> >=81 THENZEO 

IFQ(R?>ATHENU=~1 : IFRNDCG>>,. STHENW=-22 

IFQ¢R>CATHENU=1 : IFRNDC8>>. STHENU=22 

POKEG(R),46:POKEPCRD. 1 

QCRI=ACRI+U: PCRISPCRO+U 

IFPEEK{Q¢R? 9=SSTHENSGS 

IFPEEKCQ¢R? )=81THENTC=TC+1 : FORI=1T020 : POKES6875, 255-31 ‘NEXT : POKE36875, 6: GOT 


IFPEEK COCR? S127 THENGCRISOCRI-U PORISPCRO-U 
POKEGCR?. 26: POKEPCR?.2 

IFTC="THEN31@ 

POKES6874, 258-RND(O>#15 

NEXT 

PRINT " SS(eSDeDe Dee ALLY TO" OUT OF" 
GOTO36 

PRINT " SQM DSA TOMATO ALLY TCM OUT OF" 
POKE36879.6 

PRINT’ @@/OU°VE SURVIVED! !" 

GOTO4e8? 

POKEQGQCR?,.26:POKEPCR).2 

POKE36874,6 

PRINT " SOMATA TOA DTT ALLY "TC OUT OFN'Y 
PRINT" STHAT“’S THE END!" 

FOR''=1T016@ 

POKES6877, 130+RND¢G>#186 

NEXT 

POKESE877.@ 

FOR'’=1T03860 : HEXT 

RUN 


2606 REM INITIALISE 


2005 
2018 


PRINT" OO" : Y¥=@ 
FORJ=1TO15 


2020 POKE7679+J, 127‘ POKES8399+I,4 
2038 POKE7TIS7+JI. 127‘ POKESB7O74+I.4 
2040 NEXT 
2050 FORJ=7690TO7988STEP22 'POKEJ, 127 POKEDO7 20+), 4 


| 2054 


ZeINTCRNDCOH11943 ZIM INTCRNDCO#11949 


2055 IF J>7ESQANDIC79BSTHENPOKEI+2, @1 | POKET+2*90720, 3 
2056 T=O' IF JD>7EBOANDIC?S9BGANDRND(O)>,. 6THENT 1 
2057 IFT@1THENYmy+s MCV om I+2L PCY me IeZ 1490720 POKERCY>. 26° POKER CY) .2 
2060 POKEI+15, 127 'POKESO7I5S+I,4 
2078 NEXT 
2088 AH7726' Bese44e6' REM START POSITION PLAYER 
2090 POKER, 89) POKER, @ 
2100 TS="," 
| 2128 POKES6878&, 15 
| 2508 RETURN 


LODESTAR/3-D 
MAZE 


You are searching within a maze for the precious lodestar. At each point in the maze, 
you'll be told which directions from your current position are open. The display 
takes the form: 

MOVE NUMBER 1 

NORTH: OPEN 

SOUTH: WALL 

EAST: OPEN 

WEST: WALL 

LODESTAR INDICATOR READS 1200 

DIRECTION? 

North South East West Help 


You enter the initial letter of the move you wish to make. H (for help) gets you a view 
of the maze from above, with your position shown as a blue asterisk. But although 
you can see where you are within the maze, the lodestar is not marked. 


You will be pleased to see how quickly you start really visualizing the maze in three 
dimensions, and how you will be moving confidently through it. The maze changes 
from game to game, and the lodestar can be in one of three positions within it. Your 
score at the end depends on how few moves it took you to find the lodestar. Asking 
for help costs you a penalty of 15 moves! As you become familiar with the game, 
you'll learn how to make the best use of the feedback from the Lodestar Indicator. 


If you have extra memory, and you feel particularly ambitious, you could add a ‘3-D 
display’, to show the view ahead of you after each move. Lines 550 to 580 determine 
which of the three positions will be used for the lodestar in the game. 


1@ REM LODESTAR’3-D MAZE 

20 GOSUBS36 

38 GOSUB370 

40 M=M+1 

SO PRIMT'"; TABCS 9; "MOVE NUMBER’ M 
76 PRINT" M@ENORTH: "; 

86 IFACD+1,E9=S THENPRINT” @OPEN@" 
30 IFACD+1,E25% THENPRINT" WALL" 

106 PRINT" M@SCUTH: "; 

114 IF ACD-1,E9=S THENPRINT" @oPENS@" 
120 IF AcD-1,E9=% THEN PRINT" WALL” 
136 PRIHT"MMEAST: "; 

140 IFACD.E+19=S THEN PRINT" @OPENM@" 
150 IF ACD. E+19=% THEN PRINT "WALL" 


16@ 
178 
186 
196 
218 
211 
215 
228 
238 
240 
256 
268 
278 
238 
298 
38a 
316 
338 
348 
3568 
376 
408 
4168 
428 
438 
435 
436 


506 


PRIHT" SWEST: "5 
IFACD.E-19=8 THEM PRINT" @0PEN@" 
IF ACD. E-19=% THEN PRINT" WALL" 


PRINT" SLODESTAR INDICATOR" :PRINT TABCG)) "READS" 1O00eCABS(2-D>+ABS(Y-E 3 +E 


PRINT" SU@RBISSD IFECTION?S" 
PRINT  SSH80RTH  @S0L/TH ZEBAST 
GETA#: IFAt=""THEH2Z15 
IFA="H"AWDACD+1.E9=4THEM 215 
IFAS="S"ANDACD-1.E2=4THEM 215 
IFAS="E"ANDACT. E+1 9X THEH215 
IFAS="W"ANDACD, E-12=“THEN215 
IF At="H" THEN GOSUBST@ 
IFAS="M" THEN D=D+1 

IF AS="S" THEN D=D-1 

IF At="E" THEM ESE+1 

IF At="W" THEN E=E-1 

IF 2=D AND Y=E THEM 348 

GOTO 49 

PRINT''YOU FOWMD IT IN" 


@iseEST 


SHEELP" 


PRINTTABCS >; "a"M"S MOVES! 11"! FORJe1TO1O8 NEXTJ GOTOS4e 


REM HELP 

PRINT" TRBRBBIZaHOR THR" | PRINT 
FORE=15701 STEP-1:°FORC#1TO1% 
FORC=1TO15S 

IFACE.C3=% THEM PRINT" Na" | 


IFB=D AND C=E THEN PRINT "ie" GOTOd4GA 


IF ACB, Co=S THEN PRINT" M+"; 
NEXT : PRINT ‘ NEXT 

PRINT" SOR RBISESOUTHE" PRINT 
M=M+15 

FORJ=1 702000! NEXT JS 
PRINT" ACD, Eom 

RETURN 

DIMAC15, 15) 

BINT CRND¢( 1943) +1 

22145 Ye14 

IF Be2 THEN Ya? 

IFB=3 THEN Ze2 

*e1' Sag 

FORB®1TO1 FORC@#1TOLS 

ACB Com! TF RNDCL9>, STHENACH, Coes 


IF CCZORCOI4ORBCLORBO 14 THENMC BR, Com 


NEXT NEXT 

D=2'E#2 

FORF=1TO068 

READE: READC 

ACB, Cas 

MEM T 

M=-15' POKEZ6879, 25 

RETURM 

DATA 2.2,2,3,2,4,2,9,2.6,2,7? 

DATA? 7,4,.7.5.7,5,6,9,9,9.4.%,3,6,3 
OAT) Set Mate meat e? ts 99.8 
DATAS. 9. 10,6,18,7)10.6,10,5,10,4,8.8 
DATALG. 3.11+3,12,3,19,9,14,3,14,2.7,.18 
DATAG. 19.5.10.4,10,9.10,2,10,2,11,2,12 


DATAZ. 13.2,14,6.11,6,12,6,19,.6,14,7.12 
@ DATAI4, 12+8:12.8, 14,9) 12.9) 19,9) 14518)12 
DATAL1.9+11,10,11-11-11,12,12,9,13,9, 


DATAI3.11.13.12.13.13,13, 14.14.14 


13,168 


ROULETTE 


Roulette is one of the classic gambling games, and with this program you're ready 
to try out your ‘system’ for beating the wheel... without losing your shirt. 


QUAY 


we 


WAS 

COE AS 
WSS 
i 4 


. Nh 


cone 


The first program allows full casino betting, playing by the European rules, which 
have a wheel with the numbers one to 36, plus zero. The American wheel has the 
numbers one to 36, plus zero and double zero. This is catered for by the second 
program. 


The roulette table has the numbers one to 36, some in black andsome in red on it, 
plus the zero (and, in the case of the American system, the double zero). You can 
place bets on a wide variety of number combinations. Once the bets are placed, a 
wheel is spun, and the croupier throws a ball into the wheel, in the opposite 
direction to the spin. The ball ends up resting on one of the numbers, and this 
determines your fate. 


When you run the program, you'll see the words YOU HAVE 100 CHIPS. After a short 
pause, the words MESSIEURS, FAITES VOS JEUX (Gentlemen, place your bets) 
appear. You then enter a letter of the alphabet from A to P (or Q to quit the game) 
which indicates which type of bet you wish to place. Here is the key to enter your 
bets: 

A-— Asingle number 

B — Two adjoining numbers 

C — Three numbers in adjoining columns 

D — Six numbers in adjoining columns 

E — Four numbers in a square 

F— Numbers one to 12 (known as the First Twelve) 

G — Numbers 13 to 24 (known as the Second Twelve) 

H — Numbers 25 to 36 (the Third Twelve) 

1— Numbers one to 18 (Low) 

J— Numbers 19 to 36 (High) 

K — 12 numbers in a horizontal row 

L— Two adjacent horizontal columns 

M — Any red number (see below for a list of red and black numbers) 

N — Any black number 

O — Any even number 

P— Any odd number 

Q — to quit the game 


The red numbers are: 1, 3, 5, 7, 12, 14, 16, 18, 19, 21, 23, 25, 27, 30, 32, 34, 36 
The black numbers are: 2, 4, 6, 8, 10, 11, 13, 15, 17, 20, 22, 24, 26, 28, 29, 31, 33, 35 


You will not be allowed to bet more chips than you have, and you may withdraw 
from the wheel at any time. The bank only holds 1000 chips, so if you get a total of 
1100 in hand (the bank’s 1000, plus your original 100 chips), the game must end, 
when you'll be the one who broke the bank at Monte Carlo. 


Once you've spent a bit of time gambling with this program, you may wish to try 
some of the ‘systems’ which evolved for roulette. One of the most popular is the 
Martingale in which you stick to the same number or group of numbers, doubling 
the bet each time you lose, so you bet one chip the first spin, two the next (if you lost 
on the first), four the next, and so on. This ensures, in theory, that any win should 
wipe out all previous losses, and give you a profit as well. Most systems are 


marti 


1 REM ROULETTE - EUROPEAN 


3 PO 
5 FR 


10 FORK=17T08@6: NEXT: PRINT RETURN 


26 I 


40 PRINT"YOU HAVE"CH"CHIPS" 


Sa Gi 
60 FI 


78 6 


Té ASASCCAS 9-64: IFACLORADS 17 THENTS 


75 1 


80 FORQ=1T024: BC Q>=-99 NEXT 
INPUT’ SHOW MAN’ CHIPS" iM I[FN>CHTHENL1& 


131 


Ree ee eee 
fw WW ow os 


DOO IH APM 


PRIHT"SO ‘YOU LOSE" :GOTO336 
406 IFCHCLTHENPRINT''YOU HAVE RUM OUT OF CHIPS" > EMD 
410 IFCH>11@@THENPRINT"'YOU HAYE BROKEN THE BANK!" END 
429 RETURH 
2608 INPUT" @WHICH NUMBER" SD: Be do=D° ODS35° RETURM 
2648 INPUT" WHICH THO NUMBERS"; BCL). Beas: OD=17° RETURN 
26386 PRINT" MWHICH NUMBER": INPUT" IN LEFT COLUMN": DT 


systematic only in that they help you lose your money in record time. However, it is 
far better to try out a system with the program, than with an actual wheel. Sir Hiram 
Maxim, the inventor of the first automatic repeating gun (hardly an achievement 
likely to make him an expert on roulette wheels), is said to have said that “a bad 
system is better than none at all”. Balance this against the advice of William 
Makepeace Thackeray: “You have not played yet? Do not do so; above all, avoid a 


ngale if you do”. 


KESE879. 26 
INT"S": GOTO2e 


IMB¢ 24) :CH=108 


OSUB1G 
RINT MESSIEURS. 
ETA: [FAt=""THENTS 


FA=17THENS688 


CH=CH-N 

IFA=1 THENGOSUB2E00 
IFA=2THENGOSUB2646 
IFA=3THENGOSUBZESE 
IFA=4THENGOSUB2TS 
IFA=STHENGOSUB27 6a 
IFA=6THENGOSLBSS008 
IFA=? THENGOSUBSS 45 


IFA=5 j 

IFA=1@THEHGOSURS 
IFA=11THEHGOSUBSO8 
IFA=12THENGOSUBSO44 
IFA=13THENGOSUBIE36 


3 IFA=14THENGOSUBS1260 


IFA=15THENGOSUES 168 
IFA=16THEHGOSUBS 2068 
GOSWELG 


PRINT"WHEEL IS SPINNING": GOSUB1G 


GOSUBL1@: PRINT" TZ" 


FORB=17T075:C=INTCRMDC@> 


HEXT : GOSUBSG@06 : NEXT 


GOSUBIG: PRINT" BALL HAS ENDED AT"C 


Way: 


E=1 


IFBCE>=CTHEH'Y=1 :GOTO27H 
IFE<24THEME=E+1 : GOTO25a 


IF 'Y=6THEH378 
WI=OD#M : CHSCH+H1 


PRINT" COHGRATULAT IONS . 


FAITES 


373° PRINT" TIMMal'C os FORT=1TO3*5 


vos JEUX" 


HAVE WOW" WI" CHIPS" 


id <ihtastauas aaaanasaaas ainisiansiianaEcaen tana 
— 


2690 FORES@T02: BCE+1 9=D+E MENT! Ole) 1) RETR 

ar ee INFUT MF IRST NUMBER OF SIM'S TD PORECATOS! Bebe) det MEM T OTS RETR 
7é6Q THPUT"1ST HUMBER IM SQUARES DS PORE@A TOS! BO Eel sete) TFESaTHEMD=D+1 

2770 HEAT OD=8: RETURN 

FORE=17TO12: BCE 2SE: MET: OD=2! RETURM 

FORES1T012:° BCE *=E+12') MENT One! RETURN 

QM FORE=17T012: BCE =E+24 HEMT ODee | RETRY 

FORE=1T018: BCE? sE NEXT: ODe1  RETURM 

FORE=1T08 BCE YSE+18° HEMT OD) RETR 

PRIHT' SL.Ok HUMBER AT EHD"  IMPUT! CR | DME") 0 

FORES8TO11  BCE+1 2 83eE+0: HEMT OTe | RETRY 

ae HO. AST COWUMA' SD IMPLI CML AO. AD COLUMN! | Des DPABS CD Deo. 


RESTORE: 
3160 FORE=2TC 


READE: ‘HEMT ! ‘PORE®1TO16! MEADE CE) MENT Owed RETF 
CE“ 2 SE HEAT Othe, | RETURM 

3208 FORE=1T BCCE+19/298E NEXT / OD | RETURM 

B21 DATAL. 3. 5.7)9.12.14.16,189.19,21,23, 25, 27,90, 98, 94, WG 

B220 DATAZ. 4.6,8,18.11.13. 15.17, 20,22,24,26, 20,29, 01,99,95 


4080 PRINT Mttvol ARE WITHDRAW IMG FROM THE GAME WETM "CH" CHIFS" 
| 4818 EMD 

SAG POKESES7S. 5 

S@1G POKESES7?. 130+8: POKESBRPS. 1 ae+B 

SH20 POKEBSSTS, @: POKES aor? 8: POKESGRTS, 


SQ38 RETURM 


1 REM ROULETTE ~ AMER T CAM 
& POKES6S7S, 26 

| 5 PRINT": GOTORe 

| 10 FORK =1TOSA0' HEMT PRINT RETURM 

20 DIMBCAd> CHe10e 

Hii 40 PRINT" YOU HAVE" CH! CHIPS" 

| S@ GOSUBLG 

| 60 PRINT"MESSTEWIRS, FALTES YOu TEI" 

Vit 70 GETAS! [FARe" "THEN TO 

i 72 AFASC CAR) 64! TFACLORAD LP THEMIS 

ii 75 IFA®17THENAQOR 

tH SQ FORM=LTO4 BO) oo) HEMT 

il 110 TMPUT HOW MAM! CHES! hi TPM OCM THEM Le 

i 126 CH=CH=M 

HI) 130 IFA=1THENGOSIB2600) 

1) 131 TFAS2THENGOSUB2640 

itt 132 IFA=3THEMGOSUB2680 

133 [FA=4THENGOSUB27 20 

| 134 IFA=STHENGOSUBZ76O 

tf 135 IFAS&THENGOSLIBZ8a9 

i 136 IFAS? THEMGOSUBZE46 

Hit 137 IFAFSTHEHGOSUBZS3e 

138 [FASSTHENGOSUBSI26 

139 IFAS L@THEHGOSURS9ae 

140 IFARLITHENGOSURSaeR 

t41 IFASL2THEHGOSLURSa4 6 

| 142 IFARL3STHEMGC 

| 142 IFA=14THEHGO 
144 IFA STHEMGOSUE 
145 [FA=16THENGOSUBSZa8 


GOSWBG 
NT WHEEL Is SPINA IMG" | GOSIIB LG 


ie IHT« SRE EMS So PRET AT SITS PCR ET TASB! 
pa) TATA A 


ITHEMFPRIWT BALL, MAS 
LTHEMFPR IMT" BRILL. HP 


LANDED ATE 
LAME Tee DOWIE See" 


THEM'Y=41  GOTOATH 
+1 GOTTA 


Ws SOIT CH=CH+H 1 
PRIMT'COMGRATULATIONS, YOU HAVE WOM" MT" CM Tee" 
GOSUB1A 

INISUB4G8 

GOTI4e 

PRIHT"S0 YOU LOSE" GOT 
IFCHALTHEMFR IMT OL) HAVE FaLhd OWT CF CHIPS" EMD 
IFCH? L1G@QITHEMPRIHT YOU HAVE BROKEM THE BANK I! EMD 
RETF 

IHPUT' HICH HUMBER" SD: Be loele 
INPUT WHICH THO Path aha sBeLd, 
PRIHT" MMIHICH NOME 


2° RETURM 
' oe 17° RETURM 
= COLIMM sD 


+E MEM T ) ODS | RETR 


THFLIT" 13 ‘T HUMBER IN SQUARE": 0: FOR +E [FE@2THEND t+ 1 
HEXT  O0=S: RETURM 
FORE=17T01 
FORE=17TO 


FORE=17T0 


PRINT" Old HUMBER ‘THR F "LINE" it 

FORESQTOL1: BCE+1 : I 

THPUT' SoM HO. 1S OW HO. SHE COLUM" s DS: LFABS¢D1-De9o1T 
=QTO11 BCE+is=S#E+D1: BC E+139=S#E+D2 :HEXT OD=. 5: RETURN 

STORE 


3080 4% 
FORE= LTO: 


3098 


‘HEAT (OTe 1: RETURH 


‘ DATA2, 4.6 ’ : 
PRINT" @tatetrol ARE WETHDRARENG FROM THE 


ITH "CH" CHIPS" 


ete ed te to 
eit oh 


RETURH 


SPACETREK 


You are in command of a galactic probe ship, responsible for the safety of a ten by 
ten sector of space, containing the Antares, Procyon, Rigel, Vega, Canopus, Altair 
and Sagittarius sectors of the known galaxy (see lines 8540 —8610). This area of 
space contains a number of rather slow-witted aliens, They are immobile during a 
game, although their positions will, of course, be different from game to game. 


You have a limited amount of energy, and your task in the game is to roam the 
galaxy, making use of your long and short range scanners when you choose to do 
so, to locate and then destroy the aliens. A direct hit is not always successful, and 
you firing on the aliens often enrages them so that they fire back at you. If they hit 
you, the damage you sustain is measured in energy units, decreasing the energy 
you have left to use. Moving, firing and using the scanners all consume energy. 
Long-range scanners use up more energy than short-range ones. 


When you run the program, you'll see the sector space drawn out in the bottom left 
of the screen. At first it will be blank except for you = the red inverse dollar sign in the 
middle. Under the sector are the words YOU ARE IN RIGEL SECTOR AT 5 5 — 
ENERGY 1234 and at the top of the screen are your three options 1-SCAN 2—MOVE 
3 — FIRE. You enter one of the three numbers, 


SCAN works in one of two ways, If you enter 1 to show you wish to scan, the words 
SCANNER: SHORT (1) OR LONG (2) RANGE will appear. Short range looks at the 
squares immediately surrounding the one you are in, and reports if there is any- 
thing there. It does not tell you in which direction, 


Long-range allows you to choose the direction, and gives a readout of two squares 
away in that direction, As | mentioned earlier, captain, long-range scanning uses up 
more energy than short-range scanning does, If you told the VIC you wished to scan 
north, it will reply SCANNER IS POSITIVE (Which means an alien ship is to the north 
of you) or SCANNER IS NEGATIVE which means the square two to the north of you 
is empty. 


You have to try and kill as many aliens as you can before you run out of energy, but 
as each action uses up energy, you must judge your moves most carefully before 
making them. If you fire into an empty square, it will turn into an inverse blue X so 
you know not to shoot into that square again, although you may move through it if 
you like. A direct hit gets an inverse purple asterisk in the relevant square. 


You'll find that playing the game will teach you more about how to play it than these 
instructions will. When you enter FIRE or MORE as your choice, you'll be asked to 
indicate the direction you want. First the computer will ask N/S (for north or south) 


and if you wish to move in one of these directions, enter N or S. Just press RETURN 
if you do not want to move up or down. Then you'll be asked to choose from east or 
west. Again, just press RETURN if you do not want to move east or west. You can 
combine moves to move, for example, north east, or south west, if you like. 


The program is very tight on space, with just over 100 bytes left when the game is 
underway, so a number of error-trapping routines, which would have been useful, 
have been left out. Certainly you should add them if you have memory. Note that 
the short-range scanner cannot be used in the outer circuit (that is if either co- 
ordinate is 1 or 10). The long-range scanner cannot be used if either co-ordinate is 1, 
2,9 or 10. 


There is nothing in the program to stop you trying to move off the galactic grid, but 
trying to do so will cause the program to crash. Add your own choice of name for an 
alien in line 9240 if you don’t like mine. 


If you have extra memory, some sound would certainly enliven the action, As well, 
you could add a routine to move the aliens slowly about and one to put the name of 
a crew member before each report (reports being direction of move or fire, location, 
energy level, information on whether you've been hit or not, and so), with the actual 
crewmember making the report changing from time to time. 


i) iY 


‘IMPUTD 


THPUTE: 


1100 TF 
1120 IFRCEHL Ja ORRCRAL Col eIORNER bod md ORA CHAI /Co=S10RACE <1, 061921 THENF=1 / GOT 


g-3 ’ axe ng" SITMFUTH ) 28 


SEINE 
ed a) 


IMPUT!MDIRECTION ¢he'S 0". AF 
IFFif="H" THENB=E~ 1 

IFA¢= "5" THEMB=B+ 1 
PRINTHOW AT'E" 


in” 
ome 


RETURN 
G=E:Ag="" el 
PRINT" DIRECTION OF FIRE" INPUT" (H/S)"/A#! TFFO®"N" THENGC~ J 


ere 


="S" THEHG=G+ 1 


UT EC ED 5 Pe 
IFAS="E" THEMF =F + J 


CG. Foot THEME Sas 
PRINT’ YOU HIT THE" : [PRINT tM! 20 
i Fil FiL+ 1 : BUG. Fo e4  GOTOR41 A 

= IMT" @avOU MISSED, GTR" 
: ATO A MET 
i PRINT" THE "2" ARE OPRIAT SHAT TG BRS" 
FORG=1TO1 G08) MEM T 
IF PHD A>, STHEMIAME 
B2a50 FRIMT" stTHe'! MT WG) EE LR GPT ek de 
S400 PRINT’ THE "2a" MISSED" 
wate FORD 1 TOL BOO MEM T OCS RE TRE 
PRIMT MEME RIG! BPW Ge eed Pv TET" 
PRIM T CNP OTL ET DA OTP RL THEM PR TT 
PRIMT OM THOS MISS TOMMYOUR COMMAME RAT IMG 1S 
GOTOSE A 
PRINT AVOLIR SHIP HAS LAMDED OM AMY e" SHIRT 
S548 PRINT OMY OWE SHIP MPS EP Lote te 
buf i] BOT Ose 
SE “Th. 


Ee a | 


=" PHEMP RTT Mai! | 
oT EE IPR TT ite 
STHEMPR TMT" ime," 5 
eb TEMP TT gai 
HT HEMT 
SPRINT AL) PRE DM" 

MPF TT A TES 
THEMPR LIT MP PROS AY 
QTHEMPR TMT fie TEL 5 
THEMPR TMT SVE Gr" 
THEMP PLT aC CIPS | 
THEMPR DMT ML TAT" 

PRINT SAG DT TAR ELIS" 5 
Tre AT " EB " " 3 


Rc a 
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REACTION 


Your reactions come under scrutiny in this program which uses double-height 
characters. When you run the program, you'll see the words STAND BY appear. 
Then the screen will clear, and after a random time the words OK NOW PRESS THE 
SPACE BAR will appear. You must hit the space bar immediately, If you do so within 
the time limit, the words HEY YOU DID IT come up on the screen, and the process 
will start again. However, the time available to you to react in will decrease, 


The process will continue, with you being given a shorter and shorter time to react 
each time. Eventually you will fail, and a ‘reaction rating’ (LOUSY, FAIR, PRETTY 
GOOD, VERY GOOD, or YOU’RE THE CHAMP) will be given, depending on how 
short was the time of your last successful reaction. 


1@ REM REACTION 
15 DIMRe¢4> 
20 PRIHT"T}" 
AQ GOSUEBSABR 
Se BPRS TAHIMEB 
AWK OUMERESSUTHE RRM P ACE MBAR" 
OBE eR OIE TT" 

Te O58 

PRIMT "9a" At 

FORT=1TOS@@: HEMT 

38 FORT=1LTOL@G+RHD ¢ a> #4e8 
2 TFRMDC eS, SSTHEMPRIWT OO" 
MELT 
92 GETFE: TFFSc>" "THEM Le 
a PRINT" CH" BS 
E=TI 
GETF#: IFF#=""THEMLES 

“ES PRIMT "mi" 
+1 THEMPR ITD 
ITHEH 1128 
4° MEST 
IHS +S 
"THEN LES 


Gi TOSS 


PRINT" Ta" 
z BTHEMPR: Th 7 "STL OS 

iF THEMPR IMT" stent Fy TF" 

THEMP RINT" Sam RET TY MGC" 

Gi LETHEMP RR IMT "ater Ere 'y MIST) 

LATHEHMPRIMT" Sty OURE MT HE MSHA PE" 

4 FORT=17TOL@G8 : HE: 
oe RC ee SOLIS | 
PRIMT  MELMIGAMERMC OM Tomi tF" 
FORT=1 TOSGG8 : MEST 

GOTOra 


@ RETURN 
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QUACK (DUCK 
SHOOT) 


In this rather daft game, you have to shoot the little purple ducks flying overhead. 
You shoot by pressing the space bar. You can move yourself right and left by 
pressing the “2” and ‘“M” keys respectively, Your score at the end of a limited time — 
which clocks down on the screen throughout the game = relates to the number of 
hits you had, compared with the number of shots you fired, so you cannot get a high 
score just by firing over and over again, 


The quacks do not fly in a totally predictable manner, which adds to the challenge. 
The sound and display when you score a ‘hit’ is quite satisfying. Note that there is a 


time penalty imposed every time you press the space bar, another good reason for 
firing with moderation. 


18 REM QUACK 

26 PRIHT"T)" : POKES6879, Laz 

38 B=7'H=10'SC#O: Hla! FCme 

40 FORP=1TOS@ 

45 IFP=41 THEMP RINT" cs 
S@ PRINT" STIME'SQ-F" SHOTS" FC 
186 FORZ=eaTOZe 

118 POKE?7EE+Z, 127 

115 POKE?TES+2, 81 

128 POKESS4a8+2, 4 

25 POKESE4E9+2, 4 

142 GOSWBIAG 

, +H] 

144 IFHI=1THEMPOKES6Q79). Gt! POM 
145 IFHI=1THEMPRIMT "MMS CORE" SC 
14? POKESS488+2, B 

148 POKES8499+2, 8 

158 TFRHDC 19>. 4THEHIF2¢ 17° THEN Ze 2 ee 
168 HERT 

178 HEXTP 

PRINT" MITIME 1S WF" 

PRINT" SUCCESS RATE" TMT. 1AOAMM Sod, OOM OPO, MAME oLeee 
a EMD 

FOKESSS62+H, B 

GETAS 

IFAS="2" THEMIFH? 1 THEMH=H~ 1 
HEMIFH?.2QTHEMH H+ 1 
+H. @ 


wh 
4 


BOOTH, Lae 
Mt 


S8Q RETR 
1800 REM SHOT 
1@2 FCSFC+1  P=P+1: [FPS4+STHEMRE TUR 

1682 [FP=41 THEMPRIHT "3 a 
1664 PRINT STIME"S8-—P" SHOTS" FC 

1685 FORY=8O9STOPTSeS TEP se 
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1016 POK, EY+H, 92 


IFH= SSORHE C+ LTHEMM Td POKES LS POM, eM PORT TOM MENT! POKES 


1070 RETURN 


BILLBOARD 


This tiny program produces very big results = twice as big, in fact. You enter the 
‘advertising message’ you want displayed in the strings A$, B84 and C$, using the 
‘shift right’ instead of a space between the words. Only letters of the alphabet can be 
used with this program. Symbols, spaces and numbers are not allowed, 


You may well wish to modify the program so that instead of A$, 84 and C$ being 
permanently set, you can enter them each time you run it. Simply change line 70 
into INPUT A$, 80 into INPUT B$ and line 90 into INPUT C$. Note that if you do this, 
you can only enter single words, and you cannot use the controls to position your 
words. 


1@ REM BILLBOARD 
=" AAT EST HT SMT SRT EST" 
=" MAT HT SMSO LIHAT ORR MIHAP RES" 
’ PHT CMMI EP" 


, PRINT" 2)" Fg 

4 FOR D1 TOSGGG : HEMT 
PRIHT' OI" 

A PORDS 1 TOS: MEM T 


F J TOS | METS T 
BOTCH 1 

JOO PORESG. So AS S27 PS POR Be? 1 4 "ARIES TERPS POE PEER CA POKER? 1, PEEK CPS Pod 
HEMT 
9018 POKES 
IB26 RET 


MAGIC SQUARE 


The clever computer generates a three by three magic square, replacing three or 
four of the numbers with zero, As you probably know, each line of numbers in a 
magic square (vertically, horizontally and diagonally) adds up to the same total. It is 
your task to work out what the missing numbers are, 


If there is already at least one complete row, it is fairly easy, with a bit of swift mental 
arithmetic, to determine (a) the total and (b) what digit will complete one of the 
other rows. This new digit should help you with another row and so on. If, however, 
there is not a single complete row, as sometimes happens, your task will be much 
harder. 


The computer counts the number of moves it takes you to complete the square, and 
then gives you a score at the end which is related to the number of wrong guesses 
you made on your way to solving the problem, 


A REM MAGIC SQUARE 

A=IMT ORMD Sy+1 Me 
3@ PRIHT' TO" 
46 BIT « RND¢ Vb LS TAT RMD ed 


Vel AC ee ee ACS ey 
+BHO | Fl oe D 


=@THEMF=1 
ee =1 THEMRIIM 


‘ GOTO: 3 
Ss J=J+1 

2 PRIMT eles MO. 7 

FR THT" at" 


MET : PRINT 
i STHEMPR IMT Osta OL! HA ERE! hl! Oe TOT 

‘ THEHFR IMT" MateitarvOu HAVE SOLVED TT! PRINT! MOU SCORED INT Leb T 4 
IFM=STHENMF ORT = 1° GME T LIM 
ail JT RY OUP GUESS" sh 
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SIMON 


SIMON appears simple to play, but can be infuriatingly difficult, Your task is to copy 
the growing string of numbers the VIC creates, It will start with one number 
between one and four, printing on the screen in a distinctive colour, in a specific 
position, and sounding a corresponding note. You repeat the number, and it will 
re-appear, with the position, colour and sound as before, . . if you are correct. The 
first number will then be repeated, followed by a second number, You must repeat 
both of these, continuing as the sequence of notes and numbers builds up, until you 
either get a sequence of seven correct, or you make a mistake, 


You'll find that you'll improve dramatically with practice. Note that if the same 
number appears twice in row, you have to remove your finger from the key after 
pressing it the first time. The border changes throughout the game to keep you on 
your toes. 


5 REM SIMOM 

10 ASC13=" med We 

20 ASC 2 =" eat" 

30 AS¢ 3) =" arte" 

40 ASCH) =" ated ate 

SQ FORT=1T04 :READS<T> ‘NEXT 
60 POKESES7S. 15° PRINT" T" 
70 FORC=1TO7 

BO LETRCC)=INTCRNDCO #4 +1 
36 

95 LET: 

1210 =1TOX: POKESES7S. 23+ 
11 GOs 


FORG=1T0M 

7 GETES: IFE$=""THENI7 

4 LETFSVALCE#) 
Er: “SBE THENSOG 

1 GOSUIBTAG 
JEMTO - 
Mk L | IF RDTTHENZS9 Cnr ee ee 
FORT=1TO600:NEXT :GoTOLeD 


PRINT'WELL DONE. YOU DID IT" , CHUBBYCHEEK’S | 


GoTOZ9B 
PRINT"YCl BLEW IT" LOS | 
A PRINT YOU SCORED! 41 j 


END H FOR THE 
A CE=AFC BCH S Diversion of the Old and Young, Rich 
FORT=OT01 > PRINT" and Poor, Wise and Otherwise, 
A FORR=1TOS#< Bi to+T > 
PRIMT" Sa" ; 
HET 
PRINTCS 
HESTT 
POKESES7S. SCECQ) 3 
FOR'7=1T0358@ : 
POKESES75. 
PRINT ® 2a" 
1 RETURH 
DATAISS. 2a. 


MONTE CARLO 
MOLECULE 


The general term ‘Monte Carlo Simulations’ is given to those simulations which 
show the result of chance factors. Brownian motion and atomic diffusion are 
exampls of random motion which can be emulated with a Monte Carlo simulation. 
In Monte Carlo Molecule, a molecule, starting at any position on a ten by ten grid 
you designate (we suggest you try 5,5 as your first one), works it way randomly 
around a small box until it happens to find its way to the bottom right-hand corner 
(co-ordinates 10,10) counting the number of moves it took to get there. 


10 REM MONTECARLO MOLECULE 

22 PRINT"T" : DIMAC18,10) Me® 

25 GOSUB1SO0' REM START 

30 GOSUBSOO' REM PRINT 

35 IFP@*1QANDOe1OTHENSS 

49 GOSUB1IOOO' REM FIND A DIRECTION 
68 GOTO3IG 

5Q08 REM PRINT 

305 ACP, G9 =209 Mare) 
512 PRINT" MMMOVE NO, ' 
515 PRINT" mm" 

520 FORM#1TO10 

530 FORY@1TO18 

54] PRINTCHRECACH, VY) 
S50 NEXT! PRINT! NEXT 
568 RETURM 

1888 REM DIRECTION 
1012 ACP. G>#214 

1815 G=@ 

1920 T#INTCRMD CAS mE) 
1238 IFT=@THEHGOSUB 1 100 

1035 IFT=4THENGOSUB1 120 

1848 IF T=1THEHGOSUB12a8 

1845 IFT=STHEMNGOSUB1 138 

1850 IFT=2THEMGOSUBL112 

1255 IFT=6THEMGOSUB114a 

196@ IFT=3THEMGOSUBI219 

1065 IFT=7THENGOSUB115@ 

1@7@ IFG=Q@THEN1G2ea 

1988 RETURM 

1100 IFF>1THEMP=F-1 :G=1 

1105 RETURH 

1110 IFP<1QTHEMP=P +1 'G=1 

1115 RETURH 

112@ IFP>1ANDG> 1 THEMPSP <1) Get 1 ) Ged 


" 


1125 RETURM 
1138 TFPS1BAHIG LATHER SRP + 1 Cele 1 | me] 
11335 RETURM 
114 IFFC1@AWDGS 1 THEMP =F +1! Ge 1: md 
1145 RETURH 


26 


1158 RETURH 

1208 IFQ>1THENG=0-1 :'G=1 

1285 RETURM 

1218 IFQ@c1ATHENG=0+1 > G=4 

1215 RETURH 

150@ REM START 

151@ FORX=17T018 

1528 =1T018 

S3aQ ACH, Yos2ld 

54Q HEAT: MEXT 

1558 PRINT" CIMT O-ORDINATES OF" 
1568 IHNPUT"START POSITION"; PF, ii 
1570 IFPC10RP>1@0RQ¢10RA>1OTHENL S58 - 
1586 ACP. Qs=289 

1590 PRINT"T" 

1604 RETURN 


BIORHYTHMS 


This program is based on the three cycles which affect us throughout our lives — the 
physical, emotional and mental cycles. The 23-day physical cycle relates to such 
things as strength, aggressiveness and endurance. The emotions are said to be 
affected by a 28-day cycle, which relates to optimism/pessimism, frustration, 
temper and moodiness. The mental cycle is 33 days long, and this relates to logic, 
common sense, reasoning and ease of expression. 


When you run the program, you'll be asked to enter your date of birth (following the 
clear prompts), and the day for which you want a biorhythm calculated. The 
computer will give you three forecasts — the day before the one you've specified, the 
day you want and the one which follows it. 


You are then given the option for a new forecast (based on the same date of birth) or 
of stopping the program. A zero rating is a neutral day, positive figures are a good 
sign, while negative ones are warnings of a bad day in the area governed by that 
particular cycle. If all three are negative, you'd better stay in bed for the day. 


16 REM BIORHYTHMS 

15 REM ALASTAIR GOURLAYTIM HARTNELL 
26 PRINT" TIMSISENMTER YOUR DATE OF BIRTH" 
36 INPUT" SEAR CAS 1236 
$0 THPUT" SMONTH 
IHMPUT' SAY 
A=Ae365. 25+Be3 ; 
PRINT" CIMMSIMAND MOM THE DATE FOR YOUR BIORHYTHM" 
IHPUT" YEAR CAS 19849"5B 
IHPUT"SMOHTH CAS Fo" 

INPUT" MDA’? CAS 212"5D 
BSB#365. 25+C#30.4+0-A 
PRINT" Co" 

FORF=-1TO1 

IFF=~17THEMPRIHT @SFREVIOUS DAY: "> B=B~1 
IFF=9THEMPRIHT" @ SAY OF FORE! 
IFF=1THEMPRIMT  @SHEXT DAY: "> BEB 


C=23 


Pree eee eR ID M70, 09 
Mererere He OTA 


QoOyAaanyes 
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i 


130 PRINT" MPHYSICAL: "; 

148 GOSUB25a 

156 Ce2e 

16@ PRINT" 4EMOTICMAL: "; 

17@ GOSUB25a 

186 C=33 

198 PRINT" WIHTELLECTUAL: 

268 GOSUB25@ 

265 HEXTF 

21@ PRINT" MSSENMTER “rr FOR A MEM FORECAST, “N* TO STOP" 
226 GET WE: [FW&=""THEMH226 

238 IFWS= 'Y" THEM? 

246 EMD 

258 PRINTINT(1OQ#S1HCCB-IHT CBC OMC Cm4 A? DD NK" 
266 RETURN 


CANNIBAL 
CHARLIE 


You get to play God in CANNIBAL CHARLIE. You specify how many cannibals there 
will be at the start of creation, and how many explorers. Your aim is to create a 
society that survives as long as possible, Too few explorers, and the society will die 
within a month or so. Too many explorers, and they'll overwhelm the cannibals, 
again bringing things to a halt within the first month, The program gives you a 
population readout at the end of each month, There is a ‘highest score’ (i.e. longest 
survival of a particular society) feature, 80 you can try to out-God yourself. If you 
don't like the scenario, you can change it to foxes and rabbits, or any predator/prey 
combination you prefer. 


The variable FD (food, set in line 100) determines how many cannibals can feast ona 
single explorer, Although this does not change within a single series of games, it 
will be different each time you run the program from the beginning. 


19 REM CANNIBAL CHARLIE 

20 PRINT" COMWELCOME TO CANNIBAL PPP RPHARLIE” 

30 PRINT" IRIN THIS GAME ‘YOU ARE MOOD, AND TT 18 YOUR JOB TO SET UP THE" 
49 PRINT"RULES FOR CAHNIBALS AND EMPLORER® IN SUCH A WAY THAT THE SOCIETY"; 
3@ PRINT"LASTS FOR THE LONGEST POSSIBLE TIME, MMP RESS ANY KE WHEN" 
68 PRINT" YOU’RE READY TO PLAY" 

78 GETAS: IFAS=""THEM7S 

88 HI=4 

18@ FDFRMDCG> 

118 FRINT" CMRF INME. GOD. NOW Hob MANY CANNIBALS WILL WE": 

126 PRINT"START WITH “41900 ?" 

125 INPUTCP: [FCPS>S9THEM125 

@ PRINT CHCANHIBALS : " 

@ PRINT" GPOPULATIONW: "CF 

@ CP=CP 3 

@ PRIHMT’ SHOW, THES EXPLORERS | og" 

@ IMPUT"FPORPULATION Ciao" EP 

5S [FEF YSSTHEMZ28 

@ EP=EP/3 
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PRIMT' eee LEASE STAND Bil" 
GOSUBLAGE : F 
DA=@ : 
Q DASDA+1 
ett 
EP.’ 


EPSEP+< (4#EP-EPMCP 
PRINT" Metta" THT CCP? "CANM TRAILS 
"WS" THT CEP "EXPLORERS" 
C2THENS 90 


S THEM HS=DA 
2 TFCPCLOREP <1 THEMPRIHT "oy" 
A PRINT SEHD OF THE LINE, GOD" 
PRIHT' MATHE SOCIETY SURVIVED FOR’ DA MOTHS" 
PRIMT" REST H 
RIM MTP LIT i” CREATION, All’ CTHER KEY TO STQp 
ETA: IFA "THEH442 
IFAf="'" THEM 18 
CHIR ALMIGHT'THESS" 


" S1TO4aGe > HEMT 
1@i8 RETURH 


OTHELLO/ 
REVERSI 


Othello is based on the game Reversi which was invented in 1888. Reversi was 
played on a standard draughts board, using double-sided pieces — red on one side, 
black on the other. In his splendid book ‘Discovering Old Board Games” (Shire 
Publications Ltd., Aylesbury, 1980), R.C. Bell explains that black begins the game by 
placing a piece, black side up on one of the four central squares on the empty board. 
Red replies by placing her first piece, red side up on another central square. ‘These 
four squares are covered in the first four turns of play, and then the players continue 


alternately, placing their pieces on a square adjacent to one occupied by an enemy 
piece,” Mr Bell writes. 


Any enemy pieces in a straight line between the latest piece placed and another one 
of the player’s pieces, is then turned over to show the player's colour, The winner is 


the player with the most pieces when the board is completely covered, or when 
neither player can move. 


You'll find the VIC plays slowly, but remarkably well, in this version of the game. 
You get the choice of going first or second. You move by entering the number of the 
square down the side, then the number across, entering both as one double-digit 
number (such as 36). 


Othello is a registered name, copyright Mine of Information, 


~~ 
ew OS™ 


tal — 

Ve 

Ja Dy» 
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PEM CTHELLO CHARLTON/HARTNELL 
PEM MOTE LETTER 0, NOT ZERO 
FEM CLS 15 CLEAR SCREEN 
PRIHT"2)" PEM CLS 

TASC!" OASCONO"D 


TONS LO hae 


18 LIMA, 183 
26 FORB=1T010 
30 FOPC71TO1S 
46 IF E>. AND CCD. AND BCD10 AND CC>10 THEN ACB ,Com ASCC",' 


iii P-@ 
{20 PRINT" 3G YOL WANT TO GO" REM CLS, RED 
36 PRINT"FIPST “1-Y¥ES, 2-0)" 

146 IAPLUT W 

30 PRINT"TE" REM CLS. ELUE 

166 GOSUE 3a 
7A IF Weil THEN 2800 
iGAG PRINT" NY MOVE 


{O60 IF ACA. B9<246 THEM 1328 
iva o-8 

ja2a FORC--1 TO 
1898 FORD--i Ta 
11a 
1114 FF 
11208 
1134 
1148 


i 


he 


r 


C.G+Ds<>S THEN 1128 


A GOTO1L13a 

O IFACR+C,G+D5<>7 THEN 1208 
O-D+K 
WEMTD 


THEN G=0#2 
THEN | 3 
THEN a= 

THEN Q=0." 


ND<B=2 OF B=9) THEN Q@=0.°2 


OP B=S) THEN Q=0/2 
Q=0 OR-CPAINTISB. 2 AND Q-H> THEN i228 


A AND R= THEN Saad 
IFH=@ THEN 1278 
A GOSUB 4a@q 
GOSUP 2088 
INPUT" YOUR GO";R 


Sem 


2026 
2025 
2040 
2058 
2068 
2a78 
2aga 
2098 
2108 
2066 


‘REM LETTER 0 

EM @ TO PASS 

F R=@ THEN 2090 

F R<11 OR P>8& THEN 2008 
M=INTCR 16941 
N=R-LORINTOR“1894+1 

GOSUB 4a0a 

GOSUB 298A 

GOTO 1aaKG 


T 
RI 
I 
I 


PRINT "a" REM HOME 
cA 

3 H=a 
PRINT:PRINT"§ © @OTHELLOM" PRINT 


REM BLACK, RYSOH, RYSOFF 


PRINT'M s12345679MRS" PEM PED. PVSON. PY SOPP BLUE 


| FOPB=2 TO 9 


2868 
2878 


2038 | 


2698 
31488 
2118 
3128 
3136 
3146 
2150 
3152 
3155 
Sisy 
3178 
4noa 
4016 


4028 
4020 
4048 
4050 
4060 
4078 
4094 
40908 
4108 
4110 
4128 
4128 
$140 
415a 
41608 
5068 
5@10 
5828 
5a3a 


PRINTE~1 ; 
FORD=2TO9 
PRINT CHR: 


(ACB, DD) 
| THEN C=C+4 


PRINTE-1 
HEXTB 
PRINT ""a 
PRINT 
PRINT" 1 HAVE! SD 

PRINT 

PRINT" GOW HAVEN" (H/o! 
PRINT 

RETURM 

FORC=~1i TO 1 

FORD=-1 TO 1 


Fen 

G-N 

IFACF+C. G+00>S THEN 4088 
FF+C 

G=G+D 

GOTO4e4d6 

IFACF+C,.G+D9<>T THEN 4148 
ACF. GIT 

IF M=F AND H=G THEM 4140 
FrF-C 

G-G-D 

GoTa4asa 

NES TD 

HEMTC 

RETURH 

IFC>H THEN PRINT" WON"; CH 
IFHEC THEM PRINT" YOLI WOH" CsH 
IFH=C THEH PRINT"IT’S A DRAW!" 
END 


‘REM RED, RVSON, RYSOFF . GREEN 
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DR WATSON 
AND 
DR AUDIO 


This is a pair of simple programs, in which the VIC thinks of a number between one 
and a hundred and challenges you to guess it. In ‘Dr Watson’ the feedback is words, 
and it is pretty easy to guess the number. ‘Dr Audio’, by contrast, uses a tone to let 
you know how close you are to the correct number. Once you've played about five 
games, you'll probably be quite pleased to see how good you become at 
interpreting the sounds. 


DR WATSON 


5 REM DR WATSON 

6 C=1:PRINT"CI" 

18 PRINT"I AM THINKING OF A NUMBER BETWEEN ONE AND 106" 
36 A=INTCPNDS 19#180)+1 

48 PRINT"WHAT IS IT"; 

45 INPUT B 

58 C=C+1 

55 REM "WRONG" IH PRED 

68 IFBC>A THEN PRINT"NO. @">B; "SIS WRONGS" 

65 IFE=A THEN 126 

67 PRINT"GUESS";C; "IS "5 

78 IFBCA THEN PRINT"S§iTOO LOWS": REM GREEN. BLUE 
88 IFEB>A THEN PRINT"@T00 HIGHS" :REM PURPLE: BLUE 
9@ IF C<18 THEN 45 

108 PRINT: PRINT"M@SEND OF THE GAMES" 

118 PRINT"MI WAS THINKING OF";A:GOTO17@ 

126 PRINT"'YES, YOU ARE RIGHT!" 

136 PRINT 

140 PRINT"SI WAS GTHINKING" ."OF"5A 

158 PRINT 

166 PRINT"IT TOOK YOU";C, "GUESSES" 

178 FORJ=17T02000: NEXTJ 

180 RUN 


DR AUDIO 


5 REM DR AUDIO 

6 C=1 

7 POKE36878, 7 

1@ PRINT"I AM THINKING OF A NUMBER BETWEEN ONE AND 180" 
3@ A=INTCRND(1)¥188)+1 

48 PRINT"WHAT IS IT"; 

45 INPUT B 

5Q@ C=C+1 
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a 


55 REM "WRONG" IN RED 

6@ IFBC>A THEN PRINT"NO, M4"; Bi "ISM WRONGR" 
65 IFB=A THEN 120 

67 PRINT"GUESS"; Ci "IS "5 

78 POKE 36875, ABS<A-B)+128 

86 FORT=1T0700: NEXTT 

85 POKE 36875.6 

96 IF C<3@ THEN 45 

106 PRINT:PRINT"MSEND OF THE GAMER 

110 PRINT"'€I WAS THINKING OF") A'GOTOL7@ 
12@ PRINT"YES, YOU ARE RIGHT!" 

13@ PRINT 

14 PRINT"SI MAS STHINKING” » "OF" A 
15@ PRINT 

164 PRINT"IT TOOK YOQU";C, "GUESSES" 

17@ FORJ=1T62000: NEXTJ 

126 RUN 


ZODIAC 
FORTUNE TELLER 


ZODIAC FORTUNE TELLER, written by A.G)T, Stevens, uses a question and answer 
method to get the VIC to earn its keep providing sideshow entertainment. The 
results should not be taken too seriously, 


S PRINT"2)" 

19 GOSUB 848 

29 PRINT 

39 PRINT"MWILL YOU) PLEASE " 
42 PRINT" TELL ME YOUR NAME” 


5Q INPUT AS 
6 PRINT"2)" 
65 GOSUR 848 
67 PRINT 
7@ PRINT"STHANK ‘YOU "AS 
| 8@ PRINT 
9@ PRINT""WILL YOU NOW PLEASE" 

100 PRINT" TELL ME YOUR BIRTHDAY" 

HH 118 PRINT aay Sr 
| 120 PRINT"HGIVE ME 4 NUMBERS" SI 
138 PRINT ra ~~ 

149 PRINT"SMONTH FIRST" ‘a0! 
159 PRINT" @1¢JAN>-12¢DEC)" 

16@ PRINT 

179 PRINT" FOLLOWED BY DAY" 

199 PRINT" 91 - 31 

198 INPUT B 

248 PRINT"2" 

218 GOSUR 940 

220 PRINT 

225 PRINT" YOU WERE BORN UNDER" 

238 PRINT" THE SIGN OF -" 

249 PRINT 

25% IF B>=9101 AND B<=9128 OR B>=1223 AND BC#1291 THEN PRINT" CAPRICORN" 
“260 IF B>=@121 AND B¢=2219 THEN PRINT" AQUARIUS" 

279 IF B>=9229 AND B<=8321 THEN PRINT" PISCES" 

289 IF B>=9332 AND BC= 429 THEN PRINT" ARIES" 

298 IF 3>=0421 AND B“=a521 THEN PRINT" TAURUS" 

309 IF B>=@522 AND B<= 9621 THEN PRINT" GEMINI" 

319 IF 3>=9622 AND B¢=8723 THEN PRINT" CANCER" 
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708 
710 
72 

73 

740 
758 
oN" 
768 
778 
790 


73a 


IF B>=0724 RAND B<=8823 THEN PRINT" LEO" 

IF B>=0824 AND B¢=8923 THEN PRINT" VIRGO" 
IF B>=8924 AND B¢=1823 THEN PRINT" LIBRA" 
IF B>=1024 AND Bi=1122 THEN PRINT" SCORPIO" 
IF B2=1123 AND BC=1222 THEN PRINT" SAGITTARIUS" 
PRINT 

PRINT"SHALL I TELL" 

PRINT"YOUR FORTUNE "SRg "9" 

PRINT 

PRINT" PRESS ' OR N" 

INPIT C$ 


IF C$="""THEN PRINT"7]" 
IF C$="""THEN GOSUB 940 
IF C$="N" THEN GOTO 32! 
PRINT 

J=IHT1LO#RNDC 13 +1 


A IF K=1@ THEN PRINT"SISOME KIND OF FAMILY 


FOR S=1 TO 15@:NEAT S 


Ems!" 


58a 
us" 
$18 
$2 
825 
92 

838 


231 


PRINT 

L=INT¢1O#RNDC19>+1 

IF L=1 THEN PRINT"MPRESS ON WITH OUTDOOR 
IF L=2 THEN PRINT"'SPLANETARY INFLUEMCES 
IF L=3 THEN PRINT"SAN OPPORTUNITY WILL 

IF L=4 THEN PRINT"MTHIS MONTH IS FAYOUR- 
IF L=5 THEN PRINT"STESTING TIME AHEAD 

IF L=6 THEN PRINT"MRE FASHICNABLE Bly 

IF L=7 THEN PRINT"STR'Y TO CUT DOWN ON 

IF L=8 THEN PRINT" SUPERIORS COULD BE 

IF L=9 THEN PRINT"SA FRIEND MAY HAVE 

IF L=1@ THEN PRINT"MOFFERS OF HELP MAY BE 
END 

PRINT "<I" 

PRINT "SALL RIGHT THEN "SASi" BYE 
END 


IF J=1 THEN PRIMT"GITCHY PALM7A CASH WINDFALL COULD BE DUE" 
IF J=2 THEN PRINT" GBEWARE!A FINANCIAL DEAL COULD LOSE YOU MONEY" 
A IF J=2 THEN PRINT"SAN ACQUAINTANCE MAKES ATTRACTIVE PROPOSAL BE CAREFIL | 
IF J=4 THEN PRINT"GINVEST SPARE MONEY WISELY" 
iF J=5 THEN PRINT"GAVOID INDECISION STICK TO EXISTING PLANS" 
IF J=6 THEN PRINT"@YOU ARE ENTERING A SUCCESSFUL PHASE" 
IF J=?7 THEN PRINT"SIMPORTANT TO KEEP ON GOOD TERMS WITH EVERYBODY" 
IF J=8 THEN PRINT"GAMBITIOUS PLANS COULD BE IN ‘YOUR FRYOQUR" 
IF J=9 THEN PRINT"SIF ‘OU HAVE FREYIOUSLY FAILED-TRY AGAIN" 
IF J=19 THEN PRINT"GNEW INTERESTS COULD BRING FRESH BENEFITS" 
FOR T=1 TO 15@:NEXT T 
PRINT 
KSINT¢1O#RNDC 1) 9+1 
IF K=1 THEN PRINT"BCERTAIN PEGPLE MAY RE ANYTHING BUT HELPFUL” 
IF K=2 THEN PRINT"SAVOID EMOTIONAL ENTANGLEMENTS" 
IF K=3 THEN PRINT"SAN INTERVIEW OR MEET- -ING COULD BRING MORE SECURITY" 
IF K=4 THEN PRINT"SISOCIAL LIFE COULD PROVIDE MORE VARIETY?" 
IF K=5 THEN PRINT"SA BUS'Y MONTH AHEAD IS INDICATED" 
IF K=6 THEN PRINT"MNOT AN ENERGETIC MONTH AHEAD BUT TRY TO VARY ‘YOUR ACTIVI 
IF K=? THEN PRINT"BMAKE SURE YOU) ARE NOT CAUGHT OFF GUARD LATER NEXT M 
IF K=8 THEN PRINT"BYOU MAY NEED HELP FROM CLOSE CONTACTS" 
IF K=9THEN PRINT"SFALL IN WITH OTHERS ARRANGEMENTS" 


REUNION COULD TAKE PLACE" 


ACTIVITIES" 

FAVOUR TRAVEL" 

ARISE GIVE IT CAREFUL CONSIDERATI 
“ABLE FOR AGREEMENTS" 
BE PREPARED!" 

AR MEW OUTFIT" 
INESSENTIALS STHER- “WISE PROBL 


DIFFICULT BE FIRM BUT COURTEO 


PROBLEMS TRY TO BE HELPFUL" 
REFIISED-PERSIST Ol) ARE NEEDED" 
BYE" 
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tl} 


840 PRINT TABCS) 39M ee 
S50 PRINT TABS3); "9 SMMITCIRS) aD aye |" 
860 PRINT TABC3); "I " 


$79 PRINT TABC3 
$88 PRINT TABS3); 
398 POKE 36879, 15 

908 FOR L=1 TO 198 

S1@ POKE 36876, INTCRNDC1)#120)4129 
a26 FOR M=1 TO 18 

93@ NEXT M 


"| SFSOTRUTSWNME ATTEN See |" 


" j" 


979 RETURN 


TRANQUILLITY 
BASE 


Here is a short moon-landing simulation which, despite its simplicity, is good fun to 
play and will certainly give you a challenging task. 


You start off around 500 feet above the luna surface, with a limited quantity of fuel. 
You control the descent of your craft by entering your choice of thrust by pressing 
the number keys. You have fairly tight limits within which to land safely. 


Running out of fuel before you reach the ground, or hitting the ground at an 
unacceptable speed will cause you to crash. A minus velocity means you are falling 
towards the luna surface. You may well start off climbing away from the moon, but 
its gravity will soon draw you down, 


Once you've mastered the program in its present form, you may wish to add a 
display, or modify the program in some other way, Giving yourself less starting fuel 
is a good way to make the program more difficult, F% is your fuel, V% your velocity, 
and H% your height. 


1@ REM TRANQUILLITY BASE 148 VRaeVvnor 

20 FuF1LS0+RNDC 15 #40 145 [FEN CLANDMNG LOTHENI EO 

3a 6+RHMD¢ 19 #28 150 IF HeOLOTHEN 60 

4@ HM=SOG-RHDC19#168 160 TFVN>SANDYNCOTHEN 210 

66 PRINT"T" 170 PRINT" oa ese ES 

78 PRINT" MSPS WEL FH 184 FORT#1TO900 NENT 

86 PRINT" SeORBBRESVELOCITY: "Vu 198 GOTOLTO 

390 PRINT" SRR RRR RREBE TIGHT: "HM 210 PRINT" @OREAT MLANDING, SCHIEF” 


@ GET AX: FORJ=1 T0800: NEXT I 220 PRINT PRINT"PINAL READINGS AS You" 
225 PRINT" TOUCHED DOWN OM THE" 

226 PRINT" LUNA SURFACE: " 

230 PRINT PRINT! RUEL "FX 

cued 240 PRINT"VELOCITY: "Vx 
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VINCENT VAN 
VIC 


You control a red diamond using “A” (up), “2” (down), “,” (left) and “.” (right) to 
draw outa picture on the screen. You can stop the moving diamond at any time by 
pressing any key except for the four indicated, You choose the colour you wish the 
computer to use by pressing the relevant colour key, Pressing a colour change key 
will automatically stop the diamond moving, so it is ‘drawing’ in the new colour 
when it is started again. 


The computer starts drawing in white, so it is invisible on the white background. 
You can therefore move the red ‘cursor’ diamond to wherever you like before you 
start drawing. You can also move it anywhere on the screen during the course of a 
drawing, without leaving a line. ‘Drawing in white’ can also be used to erase 
unwanted parts of a drawing. 


A REM VIHCEHT VAM VIC 
REM MOWE RED DIAMOHD WITH THE A 2. . KEYS 
THE HUMBER OF THE COLOUR WoO! WAHT 
' KEY EXCEPT FOR CONTROL OHES 


“4 


A RETURH 


CRAPS 


Craps is a relatively simple gambling game played with two dice. The simplicity of 
the game itself is somewhat offset by the complexity of the betting possibilities. To 
make it easier to learn, we've included two versions of the game: ‘Minimalist Craps’ 
to show you the game of craps in action, and ‘SF Craps’ which enables you to bet 
following some casino-like rules. 


As you can see, the first listing is very short indeed, Enter and run it, and you'll then 
find it much easier to understand the description of the game. 


To play, you roll two dice and add up their pips, If you roll a seven or an eleven on the 
first roll (called a ‘natural’) you win, and that round is over. If you roll a two, three or 
twelve on the first roll (called ‘craps’), you lose. Rolling four, five, six, eight, nine or 
ten on the first roll becomes your ‘point’. The aim of the game — assuming it has not 
ended with the first roll —is to roll your point again, before you throw a seven. When 
you're sure you understand these instructions, look again at the first Craps program 
in action to relate what you've read here to the program. 


Once you've understood craps so far, you're ready to enter the deluxe version of the 
game, SF Craps. In this version, you're introduced to Craps betting. You can bet on 
the round overall for a win (‘Pass’) or on the round overall for aloss (‘Don’t Pass’). If 
the game lasts more than one roll of the dice, you can have a side bet on each 
subsequent roll, betting that a particular number, including seven if you like, will 
come up. You do not need to make the side bets if you prefer to keep the game fairly 
simple. 


"J 
fa 
a 
> 
Z 
cI 


PASS LINE 


HH AH 
a= om aelselsa = ow 
PASS LINE PASS LINE 
“te 
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REM MIMIMALIST CRAPS 
2 G20 Wee: Lea 
G=eG+1 
BS="7COL ROLLED": PRINT" 7" 


a? PRINT PRINT’ HINS"b. "LOSSES "L 
@ PRINT PRINT "GAME NUMBER "G 

GOSS G0) 

"A= 7ORA=11THEN243 

IFAS 2ORA=30RA= 1 2THENS3@ 

FSA 

PRINT PRINT’ YOUR POINT [SP 

a 


FORT=170 
PRINT" A 
A= THT CO RHO AR RMTIS L MR eos 
FOR T= 1702 ‘ 
PRIWT FR IMTEEA 
FRE TURH 
PRIHT’ YOU WIKY Welt dl GOTKeSe 
PRIHMT' YOU LOSE": LeL+1 
: FORT=17TO1 808 > HEMT 
260 GOTOLS 


10 FEM SF CRAPS 

1% PRINT" ‘GOSUB ?7a 

ae tM Ss 

A BOTOVLS 

Y PRINT CMIGSPRESS RETRY TO ROLL" 

GET AS: TFAS=""" THEM a 

AeINTORMD Boe + INTO RHO BRE +2 

GOSUB Fre 

THT" S¥a/OU) ROLLED"A 

FORT=1 70568 ‘MEAT 

RETLURH 

IF MOI1 THEM PRIHT''/OU°RE @BROKE I!" G 
FORT=1TOS@08°> HEAT T 

"RIMT! TCO PRIMT PRINT YOU START ROUHD! SPRINT TABCE 
THT" SAPLACE YOUR BET" 

PRIWT SPS TO PLACE BET": PRIHT"OW PASS LIME." 
PRINT aa OS FOR DOW’T PA 
GET Es: 


WEP PE: GOTOL BG 


J"WITH Se" 


THEH 154 


Ze OF. BET") 8 


INPUT "8 
DMC OR B¢1 THEN GOTO 17a 


IF BoMO 


g 7 AMT Ac>t. THEM GOTO 314 
BOREM HATURAL 

J PRINT 38? OU ROLLED A MATURAL" 

IF BS="D" THEN 2708 

PRINT"ON PASS BET" 

PRINT" S@BBFYOU WIN $"B 

MO=MO+B 

GOSUB 778@:GOTO1198 

PRINT "OH DON’T PASS BET" 

PRINT "SRBRROU LOSE #"B 

MO=MO0-B 

GOoTO10a 

IF AC>2 AWD AC>S AND AC>12 THEN 350 
GOSUEB 77@:PRINT: PRINT" MSF MCRAPS!" 
FOR T=1T016@: NEXT T 

IF BS="P" THEN 25a 

GOTI246 
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PT=A 
IF MO<1 THEM 190 

PRINT" SOU NOW HAVE $"M 

PRINT" MRCUR POINT 15 "PT 

PRINT" MINFUT NUMBER FOR" PRINT"SIDE BET, OR PRESS" 
PRINT"SRETURN GFOR NON-BET" 

Kee" C=@ 

INPUTK# 

IF K#="" THEN 490 


oF C212 THEN 486 

INPUT" HOM MUCH" 5D 

@ GOSUB 718 

IF D2MO ORF D1 THEN 456 

GOSUE 68 

IFAS? THENE 3a 

IFASPTTHEMPRIHT @rOU°VE MADE YOUR POINT" 1FCeQTHEN 290 

IFCS=OTHENSS5 

IF C<>A THEW 580 

PRIHT"AMD ‘YOU WIM A SIDE" 

BO PRIHT "BET OF #°WI 

MO=MO+U1 

IFA=FTTHEHM238 

BATOSSS 

@ PRINT'YOU LOSE £"WI 

PRIMT"OM YOUR SIDE BET" 

MO=MO-WI 

IF MO<1THEM 160 

IFA=PTTHEN2Z38 

GOTO3S5 

3 PRINT @YOU ROLLED 7...." 

4 IF BS="D"THEMPRINT" GH DOH’T PASS BET": GOTOR4@ 
PRIMT"OH PASS BET": GoTOZsa 

Z Hie ODDS “WIM 


HEM WISINT CSD 
HEM WI=LHT“ ¢ Sep! 
EM WI=2eD 


STEP RHDCL #1a+, 
-T 


RETURN 
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SPEEDWAY 


Drive your little car around the track, under control of the joystick, or keyboard (“A” 
—up, “Z'’— down, “,” —left, “."” — right) at a choice of nine different skill levels. Your 
score is related to both the skill level, and to the length of time you manage to keep 
your car going without hitting the boundaries of the track. 


There is a highest score feature, so you can compete against yourself in subsequent 
runs. Your current score is clocked up continuously in the top right hand corner of 
the screen. Once you're familiar with the game in its present form, change the 
racetrack (from line 8040) to one of your own design, or write a routine to produce a 
different race track each time you play the game. 


19 REM SPEEDWAY 
15 REM JOYSTICK VERSION 
20 HS=0 
30 GOsUREOeS 
20 POKE36878, 15 
S22 FORT=1T0SK POKES687 2130+ 10#T “NEXT 
S25 POKE3687S, 8: POKES6876, 
S4Q IFPEEK(7ES0+CA+2 #cD> #102 oTHENA= 1 
S6Q POKEC7ESR+CA+22MCD) . 35 
S7Q POKECRS400+CA+224C0 » 1 
AESCA:ED=CD 


=i 
638 IFCDC22ANDM=-2eTHENSD=cnel 
640 IFCA>1ANDH=1THENCASCA-1 
658 IFCAC2OAND a= 1 THENC HCH? 
655 Bs} 
6 SCs Cx: PRINT "#304 10-SK 
68 POKE“3840Q+AE+22#ED >. 
98 IFA= ee 

714 POKES6S7S. 15 

Fee FOR" =150TO2 SQSTEPS 

730 POKES6E77. 

748 FORT=1T07/'S : NEXT 

75@ MEXT 

768 POKES6879.a:POKE36877.0 
765 SC=SC#(14-SK> 

776 PRINT" S@BENOL SCORED" SC 
780 IFHSCSCTHENHS=SC 
738 PRINT" SBIHIGH SCORE IS"HS 

8@@ FORT=1T020@0 : HEXT 

818 GOTORa 

2090 POKEDD. 127: S3=-¢ (PEEK CPBOAHD122>=0) :POKEDD. 255 
2010 P=PEEK CPA) > Si=-¢CPANDS»=@) :S2=¢ ¢PANDIE2=@) : SO0= 
2020 FR=-¢ CPAHDS29=0) ' %=S2+S3°'Y=S0+51 

2830 Ke ISCK+1. 141) 

2040 RETURN 
8062 REMIHTIALISE 
8085 PRINT"O" 
BOQ7 POKES6S79.8 
8018 A=@°REM CRASH FLAG 
S012 GOSIBRSAGR 
8: REM SCORE 
8020 CA=2:CD=3'REM STARTING POSITION OF CAR 


<(PAND4) =a) 


4\ 


soda | 

FIR DT RCE, 
PRINT " eg 
PRINT" eam 
PRIM T " 8% 
PRIMT "2% 
PRINT " Gg 
PRIHT"? 
PRIHT' 
A PRIKMT 
PRIHT" 2 
A PRINT" 
PR IT " ie 
B16@ FRIHT" 
817@ PRINT" 
$18@ PRIHT' 
8198 PRIHT' 
S218 PRINT’ 
8220 PRINT" we 
; PRT " ageenaig 
PRIM T " aay a 
PRINT" sem Ei 
POR Lb T sae eceaeee ant 
IFHS<>QTHEMRE TURM 


DATAG,-22,.8,-1, 8.1.8, 22,8 
RETURH 

PRINT" Cates MIEMTER VOR S 
PRINT" SBMLEVEL «1 TO So" 
GETBS: Sk=VAL CBS» 
IFSKCLORSK>STHENSA22) 
RETURN 


1Q@ REM SPEEDWAY 
% REM KEYBOARD VERSION 
4 eM OARD VERSI 


3Q GOSUBEQAQ' REM INITIALISE 
40 GOSUBS20' REM MOVE CAR 
SQ IFAS@THENGOTO4I 

6@ GOTO7TAA' REM SMASH 

10@ REM HOISE 

110 POKESES7S, 15 

120 POKESES7S. RHDCO) #104140 
130 FORT=1TO10#SK. 

144 HEMT 

150 POKES6878, a 

16@ POKESES75S, @ 

178 RETURH 

52a REM MOVE CAR 

530 GOSUBIGA: REM HOLSE 


DIMIS(2. 29 POKES7139. 0) ID=37154 : PAs: 7) P Rea? 1 Sa 


FORTSATO2  FORISATOS  READISC I. To HEMT I. T 


540 IFPEEK“ 7éSQ+CA+22eCD)=102THEMAM 1) 


S6Q POKECTESA+CA+22eCD 9. 35 
S7A POKES S84Q0+CA+2SeC TS 4 
Sea AE=CA:ED=CL 

538 GETAS 

IFAS=""THEMAS=BF : GOTOR2A 
» IFR: 
IFAS="A" AWDCDSSTHEMHCU=CU-1 
638 IFAt="Z"ANDCOCSSTHENMCD=CO+1 
64@ [FAt=". "AHDCA> 1 THEMCASCA-1 
650 [FAt=". "ANDICACAATHEMCASCA+1 


"A" THEMIFASCS "2" THEMIFARCO"  "THENTPRMCS". "THENAG=", " 


Ls 
a RET! IF 
a 
‘1 


REMCRASH 


SINT" Dol 
FORTS=17O2808 ) HET 

4 BOTORA 

4 REMIHTIALISE 
PRINT" OD" 

A= a REM CRASH FLAG 


SCORE IS" 


Bf="," 

PR INT " “lm Reenactment 
PRINT " nema vam ee: 
PRINT " meme mm 

PRINT" ie 


PRIHT"@ RE: 
PRINT" §e Ed 
PRINT" 2% m 
PRINT " wea We, 

A PRIHT " geen ROL 
PRIWT" 2 VUE: 
PRIMT " 2% Eid 
PRINT" Ge WE 
PRIWT " 22 Whe 
PRIWT" @@ Gi 
PRIMT"# 
PRIMT"@ 
PRINT} 
A PRIWT" tee 
PRINT " waceen 
PRINT" Qaaee 
PRIMT "3 

) PRINT” 
RETURH 
PRIMT' TIQCIEHTER ‘YOUR SKIL" 
PRIHT LEVEL ¢1 TO Ga" 

GETES 
IFSKC1LORS 
RETR} 


DO op oD 


VATHEN SAE) 


| STARTING POSITION OF 


TREACLE 
BALLS 


In this game of logic and deduction, you roll balls down a series of chutes numbered 
one to seven. There are three pools of treacle in the chutes. They may all be in the 
same chute, in three different chutes, or two in one, and the third in a different chute. 
They may all be in the same chute, in three different chutes, or two in one, and the 
third in a different chute. You have six seconds (guesses) to work out where the 
treacle lies. 


When a ball hits treacle it either sinks (you'll be told THE BALL VANISHED) or is 
deflected to the chute to the right or left of the one it is in, If there is treacle in two 
adjoinning chutes, they may both act on the ball before it reaches the end, 
confusing you to some extent. 


If you wish to guess where the balls are, you enter ‘8’ instead of achute number, and 
then enter your three guesses. You will be told how many you had correct. If you 
think there are two pools in the same chute, you must enter the number twice in 
your guesses. If you fail to guess where the treacle lies within six seconds, you'll be 
told where it is, and the game ends. If you wish to make the game a little easier the 
first few times you play it, change the six in line 70 to a higher number. 


14 REM TREACLE BALLS 


~~ 1 

NT OCHO HAVE" H" SECONDS" 
5 PRINT’ SENTER BALL CHUTE MC," 
5 PR : WOU THINK YC" 


T 


146 PRINT"OUT OF"C 

150 FOR 2=17T02@@0: NEXT 

168 HEXTH 

176 PRIHT'M@iSORRY. TIME 15 LP" 
166 PRIHT' SF4THE TREACLE WAS IN" 
19@ FOR A=1TO3 

268 PRIHT BCA? 

210 HET 

220 EMD 
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1680 REM TREACLE! 

1616 IF PNDCis>=.9 THEN 2600 
19620 IF C=1 THEM C=2;)GoTO16am 
1636 IF C=? THEN C=6:GOTO1a86 
1840 F=IHTCRHDS 1929-1 

C=C+F 

GOTOLAG 

REM LOST 

PRINT" AITHE BRILL WAMISHET" 
4 GOTO1S6 

PRINT" seteta" TABS 340950 

FO 1TOS 

FOR = 1701082 HET 

PRIHT TABCS >: "STTITTTN " 
HEXT 

OQ RETURH 
PRIHTTABS S40 oS 0 eg" 
A RETURH 

1 REM TRIAL GUESS 

PRINT MOK. WHERE DO you" 
PRIHT"THIHK THE TREACLE" 
PRIHT"POOLS ARE?" 


829,003) 


SMC YOSBC YD MEXMT 


S1@5 FORP=17T03 
5106 BCPosWCP) 
Sia? HE 
S1l1@ IF 


2THEM 515@ 

IF 4 THEM PRINT "YOU GOT"SR"RIGHT" 
IF SR=6 THEN PRINT"WRONG, WRONG, WRONG" 
S146 GOTO1S8 

S1L5@ PRIWT" stress, YOU GOT THEM" 

S166 PRINT"WITH"H"SECOHDS Ta Goa" 
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ENGULF 


In this game, you are moving about (most musically, as you'll hear) trying to avoid 
being trapped by the coloured blocks the computer is placing on the screen. You 
have to keep moving as long as you can. Eventually, thanks to the clever VIC, you 
become engulfed by blocks, and will not be able to move any more. you'll be given a 
score related to how long you managed to remain free. 


Your movements are controlled by the same keys as in Zombie Island —"A” up, “Z” 
| down, “,” left and “’.”” right. 


19 REM ENGULF 
29 GOSUES4S0 
30 5 


Hi 1816 
Wil 1 
tit Le36) ¢ 
1646 [FAt="A" THENS=S-—22 : 
1850 IFA#="2"THEHS=S+22 : 
1Q68 WHPEEK CS) > Fg 
LO?a LFW 1B2THENC#E : Set 
1075 IFPEEKCO+22)=182THENF@F+, 28 
1876 IFPEEK CO-22)=102THEHF@F+, 28 
il LQ??? IFPEEK CGl1 >) #1 B2THEMF ar +, 2m 
Mh} 17S LFPEEK CGH4+1 Se 1O2THEMF Or, 28 
Hall 1098 IFF=1THEN2eee 
HN 1108 SC=St+1 
ih 1118 HePBSO+INTCRMD COMA) | TRPBEK CH) 12 THENI 11 
WM 1128 JeH+30720! POKEM, 10@ 
} | 1130 Me INT ORMDCOOeP LPM THEN 1 oe 
Ih 1140 POKEI.M 
} i 1158 POKES6OT4+. MN POKESOGTS, Mod 
i 1200 POKEE, 1 
Hi 1210 POKEC, @! POKES, 216 
{| 1220 Beant 
Hy 1238 BOTOLAMe 
ZOO POKESEAIS , O 
h 2O18 PRINT STO RNT VE GOT WO 1 
HM} 2828 PRINT APR OU SCORED SCweae 
| i; 2030 GOTOZe30 
l} 
i 


a Me La 
-1 Neen? 
22: Mee1s 
hae Mm Zoey 


9490 PRINT! Cy" 
S34e 2 

3550 
| S578 


mew. 


Sood 
Bi 
2 


164708185: POKEZ, 102 POKER ZeGO7 20, 2 NEXT ; 
FORZ="68GTOS1E4STEPZ2 POKES, 102 POKE S400 RO, 2) POKEZ+21. 102: POKEZ+30741.2:HE | 
PORESSS7 3.15 


RETURH 


WWWX Www 
HAnAARAU 


BW 
oo 
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TIGHT SQUEEZE 


This program is fun to play, especially for younger children. The VIC selects two 
numbers between one and 13, tells you how much money you have, and asks you to 
bet on the likelihood of the third number lying between the two numbers generated. 
If you are correct, and the third number does lie between the first two, you win 


dou 
you 
you 


19 
28 
25 


36 
48 
58 


36 PRINTS” NUMBER IS";C 


5S PRINT 


Q INPUT E 


 IFEC] THEN PRINT" SCRO@WiRGR TD! |" 


 FORZ=17T024: PRINT 


» POKE 7680 + L,160 


9 FORM=1T050 : NETS 
Q NEMTZ 


ble the amount you ‘invested’. If you are wrong, you lose the amount. so long as 
have money, you'll be offered new rounds of the game. You start with $20, and 
can bet any or all of the money you have in hand. 


REM TIGHT SQUEEZE 

D=28 

PRINT"=)" :REM CLEAR SCREEN 
ATINTCRNDS 19813) +1 
B=INTCRND¢19#13)41 

IF ABS¢B-A)<2 THEN 30 
C=INTCRND(19¥13)+1 

IFA=C OR B=C THEN 60 

PRINT" @MY FIRST NUMBER IS": A 
PRINT" MY SECOND IS";B 
PRINT 

PRINT" §i¥OU HAVE sas"; D; "a" 


PRINT"HOW MUCH DO YOU BET" 
PRINT"MY NEXT NUMBER LIES" 
PRINT" BETWEEN"; A; "AND": B; 


IFE>D THEN 158 
FORZ=1T0999 : NEXTZ 


IF E<1 THEN 290 
IF NOT <C>A AND C<E OR CCA AND C>B) THEN 
PRINT"WELL DONE" Oo. 
PRINT*MYOLI WIN #5 24E 

D=D+24E 

GOTO 2e0 

PRINT" M@SSORRY, YOU LOSE $"5E; "=" 
D-D-E 

IF D¢1 THEN 310 : Wp 
FORZ=1T02800 : NEXTZ {a TN oan WYN 


‘ 


25870 


LoINTCRND¢ 1 #500) +1 
C=INTCRNDC19#8)+1 


POKE 38400+L.C 


GoToZ5 

PRINT" THE GAME IS MOVER! ! 8" 
PRINT"@YOU ARE BROKE "; 
FORZ=1T0999 : NEXTZ 

GOT0326 
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FRUIT MACHINE 


This splendid program, which uses the VIC’s graphics most effectively, was written 
for the book by M Kendall. There are three reels, and each reel has four symbols. 
You can stop all the reels, then either HOLD or NUDGE each one. 


Due to effective government cost-cutting, you start with 5p, and each game costs 
you just 2p. 


The winning combinations: 


Same, same, same -5p 
Same, same, any -3p 
Any, same, same -1p 


Your controls: 

Any key to stop the reels 
N to NUDGE 

H to HOLD 

Any to play again 


W POKES6379, 27) PRINT" CRS BY M. KENDALL 1982" 

i PRINT" Xe DO VOW WANT" | PRINT" MOL NSTRUCTIONS?" ‘ PRINT" Moan Cy OR 
ND" 

2 GETOS: IFO" "THEN 

3 IFRS" THEN GOSURL IVD 

4 Les 
SPRINT'S" 
6 Lal-2 

7 Weg 

5 POKE 36873, 10 

7 PIKE 36879, 72 

i ASCis"h a meee a eee " 

20 ASCZ>=" OO oe | ce 

20 ASCS) =" MM SO | le 

49 ASC4)=" Te KO Se Ce" 

45 FORN=1T03 

5@ ASINTCRNDC 14) +1 

Si ACNDSA 

54 GaCN-1)#7+1 

55 PRINTTABCG)" isaaneeiy muecanen macaeee tly 


56 PRINT" S" 

6H PRINTTABCG) /A$CAD 

61 POKE 36875 ,200:FORZ=1T010: NEXT : POKES6875, 0 
66 PRINT"#" 

7@ NEXTN 

BO GETOS: IFASC>" "THEN IS 

193 GUTS 


198 FORNS1T93 
283 3 $=" " THENZOO 
219 IFQ$="H"THENZSS 


228 IFOS="N" THENGOSUB329 : GOTI249 

238 GUTO288 

248 PRINTTABS(N~i #7 +1)" OODUAMNUDGETIITITN" 
245 GOTI266 

258 PRINTTABC(N~1)87+1)" MOO HOLDTITITTT)" 


48 


10 
| Se0 
| 90 
ee) 
hoo 
569 

5 


1000 
1010 
Hae 
1939 


0000 
OUT 

0001 
H002 
0005 
0012 
6015 


® PRIMT’ERCH GAME COSTS 2P. 


NEXTN 

OOTOS88 

END 

A@INTCRNDC 1084) +1 

ACND=A 

PRINTTABS CN-1 #7419" aSnaH) unseen! mannan! mananeeel 


PRINT" 300" ; TABS CN=1 #741 ASCAD 

PRINT"#" 

RETURN 

PRINT" SOOOOOO ST NNINGS" ; 

IFAC LSA C22ANDACE=R63) THENW=S ‘ GOTOSSO 
IFAC LD =AC 2) THENWES 

IFRC2)=AC3) THENW=1 

PRINTW: "MIP MINUS 2P " 

PRINT"M FOR THIS GAME” 
IFW=STHENPRINT"S MJIACKPOTET)" : GOSUBIORD 
PRINT" Osta" 

LeL+W: PRINT’ M MMONEY LEFT—." 

IF L223 THENSBOG 

IFLS@THENPRINT "TTY YOU ARE BROKE! !": GOTO706 
BETAS: LFRE<C>"" THENS 

GOTO6ES 

PRINT" MATHATS THE END FOR YOU" 

FORZ=128T0255 : POKES6877,2:FORT=1T010:NEXTT, 2 
POKE36877,,8 

GETQ¢: IFQS=""THEN718 

RUN 

PRINT "22" 

PRINT’S VIO FRUIT MACHINE 
PRINT” eR Wenn OS Aa GS 
PRINT" & THERE ARE 3 REELS 
PRINT"AND EACH REEL HAS FOUR: 
PRINT" SYMBOLS. 

PRINT'M ‘YOU CAN STOP ALL THE 
PRINT"REELS THEN EITHER HOLD 
PRINT"OR:' NUDGE EACH ONE. 8 
PRINT" '@ YOU START WiTH SP am 


PRINT"MAKPRESS BAR TO CONTINUE. " 
GETAS: IFAS=""THENI 126 

PR I NT van 

PRINTS THE WINNING PATTERNSM 
PRINT" ARE: 

PRINT"& SAME SAME SAME=SPM 
PRINT” SAME SAME ANY =3PM 
PRINT’ ANY SAME SAME=1Pq 
PRINT" THE CONTROL KEYS ARE: 
PRINT"& -ANY=STOP REELSM 
PRINT" N=NUDGEM : oS SESS = 
PRINT" H=HOLDM eer oe SS Te = Spee 
PRINT" ANY=SPIN AGAIN = : 
PRINTS PRESS BAR TO PLAY" 

GETA$: IFA$=" "THENZ126 

RETURN 

END 

PRINT" CMR © CONGRATULATIONS” :PRINT"MMVGU’VE BROKEN THE BANK" :PRINT" MM I/M 

OF MONEY 

POKE36978, 15 

POKE36879, 24 

PRINT" MMSORRY, THATS THE END” 

FORN=17012 

READA :POKES6875,A 
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e286 FORZ=17T0158: NEXTZ 
8638 MEXTN 

3640 DATAL35S, 147,135, i175, 175, 163,183, 183, 191,195,195, 195,27 
8196 RESTORE 

8116 FORN=17013 

Bi1S READA:POKE36576.A 
8126 FORZ=170150:NEXTZ 
9138 NEXTN 

8135 PRINT" S" 

8148 POKE36875,5 

815 END 


IO35 POKES6876,6 
9036 POKESES?S, 72 
3840 RETURN 

$503 REN------------ 
95:6 REM 

39526 REM M. KENDALL 
39538 REM 

3548 REM (c) 1962 


REVERSE 


In this brain-boiler, the computer randomly mixes the numbers from zero to nine, 
and you have to put them in order in as few ‘reverses’ as you can. I'll explain what a 
‘reverse’ is. If the computer had generated the sequence 5924861703 and entered 1 
in response to the question “REVERSE NUMBER?”, the sequence would be reprinted 
as 3071684295. Entering 4 would then produce 3075924861, That is, the digits from 
position four to the end would be reversed. As you can see from line 170, the 
sequence the computer is looking for is 0123456789. Get the numbers into that 
order, and the game is over. It may well take you 40 or so moves to order the digits, 
unless you're particularly clever — or lucky. 


VAe="" PRINT!" 
36 FORTSATOS 

40 L=INTCRNDC LaLa +45 
Se C= 4 


oe 


OS es 
eons 


138 FOR 
1468 B: 


17@ IFA="O1234 
BH MsM+1 : GOTO1G 
B PRINT OmistrOu DIN rl" 
S PRINT" Ae 

B® PRINT’ SIT TOOK’ MN MOVES" 


SEPULCHRE 
ORGAN 


Sounding like a mournful choir in full cry in a haunted house, this program lets you 
play the bottom row of keys of the VIC as though it is an organ. The notes 
corresponding to the keys are: 

C (Z), D (X), E (C), F (V), G (B), A (N), B (M), C’ (,) 


The note you've pressed will continue until you press another key. Touching any 
other key from those marked will stop the sound. RUN STOP will, of course, stop the 
program. 


Here is TWINKLE, TWINKLE LITTLE STAR: 
ZZ BB NNB 

VV CC XX Z 

BB VV CC X 

BB VV CC X 

ZZ BB NN B VV CC XX Z 


1@ REM SEPULCHRE ORGAM 
12 PRINT"Z" 
5 DIMBC16> .C#c165 
2@ FORA=1TO16 
30 READBCA> > RERDCECA> 


42 HEXTA 

5@ DATAI3S."2",147."%".159. "C0". 165." NV". 175. "BR", 183, "Hy 191, "9M", 498 yty 
35 DATAZZS "2". 228."%".231."C". 232. """. 235, "BE". 237. "HN", 239, "tM", 240 : 
68 FOKESE6S7S. 15 


7! GETAS 

@@ FORAH1TOS 

26 IFAt=C# CA) THEMPOKES6876, BCA) (POKES6S7S, BCA? POKESER74, ROAD OPOKEGGATS. BCA+R 

1@@ HEATA 

11@ IFAS="."THENGOTO1Sa 

14@ GaTO?a 

158 POKESES76 ; 
o 


178 POKERES 
19@ GOTO?A 
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TRAFFIC JAM 


There are two versions of this program. The first uses the keyboard to control your 
car (“A” —up, “Z" —down, ”,”’—left and “’.”’ — right) while the second uses a joystick. 


The aim of the game is to drive your car (a red asterisk) from the top left-hand corner 
of the screen to the car park (the red oval in the bottom right hand corner). You will 
be asked first.to pick a skill level, from one to nine. One is the hardest, and nine the 
easiest. A number of cars (coloured diamonds) will appear on the screen, the 
number of cars being related to the difficulty level you chose. The carpark will flash 
off and on for a few seconds, and you'll appear in the top left hand corner to make 
your journey. 


Youcan only score if you make it to the car park without hitting any of the cars, more 
and more of which appear as the game progresses. Your score is related to the skill 
level you choose, and the time it takes you to drive to the car park. The keyboard 
version only allows movement up, down, left and right while the joystick version of 
the game also allows diagonal moves. 


16 REM TRAFFIC JAM 

15 REM KEYBOARD VERSIOM 

20 HF="OORAG" > HS=0) 

36 PRIMT"T" 

48 GOSUESS4E 

1080 GETAS! [FAS=" "THENASe Ee 
1614 E=C: Gag 

1624 IFAS=", "THENSeS41 : Cwt 
1630 IFA¢=", "THENS=S- 
1646 =" FI" THEM Se 
1658 
LEP [doe 


ITHEN2O40 

BATHEMC#E : St 

a =SATHENZAAG 

A POKEE,. 1° REM ERASE WITH WHITE 
ie 35 


FORGs 17 

268 GOTOLAGE 

BG REM CRASH 

A PRINT" SOR@R CL HAVE CRASHED" ¢M=e 

J PRINT" SRRITIME: "RIGHTECTI¢,29" SECONDS" 
Be 5 


1 THSVALCTIS) 
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BSP TAT CCS Tite BG eM 


° PRINT" e@RECORE > "Ss 

PRIHT" SRR IGH SCORE: "HS 

FORT=1 T0208: HEMT 

GOTO 

PRINT" MeIMSiK ILL LEVEL «1 TO 997" | 
GET 24: 1F2¢=""THENSO1 | 
GeVALC2eo 

TFG 1LORGSSTHENS@ 1 @ 

PRINT"2)" 

RETURN 

3=7703 

C=32423 

P#="654320" 

Bs="," 

GOSIIES@68 

FORZ=76SOTO?77@1 ‘POKEZ, 102: POKEZ+30720, VALCMID#¢( PS, INTCRND(O>WE>4+1,19> ' NEXT 
FORZ=8164T08185 ' POKEZ, 102' POKEZ+30720, VAL (MIDS¢ PS, INTCRND(O)W6)41,19> NEXT 
FORZ=76G0TORLE4STEPZ2 ' POKEZ, 102: POKEZ+30726, 0! POKEZ+21, 102: POKE2+30741,0' NE 


FORUS1 TOSS -24G 
R=INTCRHDS GO) #453 9+7704 ' R2*Rk+30728 

POKES6879. INTCRND(G9#127 +1 

W=FEER CR> 

IFH=182THENSESS 

POKES6S7S. 15: POKESE87S, 140+¢R-77O4 4: POKE36378, 6: POKES6875,0 
POKER. 90° POKER2. VALCMIDE¢PS, INTC RHDCO>#69+1,199 
HET 

3 POKES6S79, 26 

FORL=1TOS@ 

» FOKESI62, 61 

PORESSSa2, 

FORT=17010: HEAT 

POKESSR&2 . 5S 

MEST 

§ FORT=17TO1 000: HEXT 

4 T1¢="8eqaG0" 

@ POKESSSS2, 2 

99 RETURN 


16 REM TRAFFIC JAM ¢JOYSTICK VERSION) 

15 DIMIS¢2.2% 

26 HS= 

30 RESTORE ' GOSUBS49q 

S1i@ POKEDD, 127: S3=-« (PEEK CPBOANDL29>=@) :POKEDD. 255 
S2Q P=PEEK CPA? Sl=-(CPANDS =O) ' S2=¢(PAND162=8> > Se=¢ (PAND4 =a 
538 FR=- CCPAMDS29=@9 ° 4=S2+S3' YeSO+S 1 

1616 E=C:Q=5 

1626 S=S+IS¢h+1. +19 

1625 C=C+IScKk+1. +1) 

1870 W=PEEKCS> 

1675 IFW=31 THENZada 

1686 IFW=1@2THENCSE : S=@ 

1896 IFW=S6THEN2aae 

1266 POKEE.1:REM ERASE WITH WHITE 

1216 POKEC.2:FOKES, 35 

1230 R=INTCRNDCOO#4559+7 704: Ro=P+307 28 

1246 WePEEK CR? 
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1250 
1260 
4: > 
128 
1500 
2000 
26910 
2020) 
2046 
2050 


2126 
SGGe 
See 
S828 
Sa38 
Sade 
be] be] ) 
9496 
9508 
95168 
9526 
3538 
9548 
3558 
S568 


A S=INTS CS 


IFW=182THEH1 236 

POKESE87S. 15 POKES6875. 140+¢R-770494 : POKER6878, 0° POKEZER75.0 
POKER. 90° POKERZ, VALCMIDS¢P#, INTCRNDCO2#E94+1, 199 

FORO=1 7026-1: HEXT 


GOTOS14a 

REM CRASH 

PRIMT" SRBFYOU HAVE CRASHED": M=a 
GoToZare 

PRIHT" eR MRP OL) MADE IT)! Med 


BITIME: "RIGHT#<TI¢.2>" SECONDS" 
VALCTI#) }#12345/04M 
FS>HSTHENHS=S 

PRINT" H@BIECORE :"S 


So PRINT" Me@@HIGHSCORE "HS 


GoTAsa 

PRINT" SeeMMSK TLL LEVEL C1 TO 993" 
GET 2#:IFZ#=""THENSO10 

G=VAIL 
IFG<10R6 
PRINT" 7" 
RETURM 
PRINT"! 
REMINITIALISE 
POKE37129, 4: DD=37154 : PAS37 137: PB=37152 
FORZ=8TO2 ' FORJ=OTO2: READISCI,2> NEXT, 2 


‘STHEMSA1@ 


DATA-23, ~22,-21,-1,01,21,22,23 
$=7703 

=28423 

PS="654320" 


GOSUBSAGG 

FORZ*7680TO77O1 | POKEZ, 102) POKEZ+30720, VALCMIDSCP#, INTE RNDCO #6 241.199 HEX 
FORZ=8164708185 ' POKEZ, 102) POKEZ+90720, VALCMIDSCP#, INTCRNTCG2#6 941. 199° HEXT 
FORZ=7680TOS164STEP2S ! POKEZ, 192) POKEZ+30720.0: POKEZ+21, 102° POKEZ+20741,0°NE 


FORU=1TO2S5-246 

R=INTCRAD CO #458 +7704 R2eR+30720 

POKES6879,. INTCRNDCQ)#127) +1 

W=PEEK CR? 

IFH=102THENS680 

POKES6S7S. 15! POKESES7S, 140+¢R 7704) /4) POKESES7TS. O: POKESES75. 4 
POKER. 90: POKER2, VAL CMIDS¢P#, INTORNDCO #6) +1, 19> 

HET 

POKES6S79,, 26 

FORL=1TO058 

POKES162,81 

POKESS332.6 

FORT=1T01@: NEXT 

POKESS332. 5 

NEXT ° 
FORT=1T01000: HEXT 

Ti¢="000R0" 

POKESSSS2. 2 

RETURM 
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LONG JOHN SILVER 


This is very simple program which you can use as the core of any program when 
you want to hide something on a grid. In this case the grid is 10x 10, and after each 
guess you are given feedback as to where the gold is hidden, 


Structure of the program 

Lines 16 and 20: ‘Hide’ the gold. 

Line 38: Loop to count guesss 

Line 60: Accepts player guess, strips it to two numbers to ‘process’ it. 
Lines 138 to 198: Feedback on the accuracy of the guess. 

Lines 218 to 220: End of game if not guessed. 

Lines 238 to 260: End if the treasure is found. 


Suggestions for improvement 

@ Change the size and shape (triangular?) of the grid. 

Add some ambiguity to the feedback. 

Use sound for the feedback (high notes for close, low notes for far away). 
Add a sound routine to the win routine. 


7 POKE 36879, 15 

8 PRINT"C)" 

10 REINTCRNDS LoeLB)+1 

20 B=INTCRND( 19#103+1 

1@ FORZ=1T01@ 

35 PRINT" #i" ‘PRINT 

40 PRINT" YOU HAYE ONLY" 

45 PRINT1@~Z; "SECONDS LEFT!” 
50 PRINT"MHERE IS THE GOLD": 
68 IHPUTM:C=INTCM/1@> : D=M-C#1B 
70 IFA=C AND B=D THEN 238 

130 PRINT:PRINT"IT IS NOT AT";CiD 
35 PRINT 

146 PRINT"HERE IS A CLUE:-" 

15@ PRINT"ATRY TO THE "; 

160 IF A>C THEN PRINT" SSOUTHM" ; 
170 IF ACC THEN PRINT" SNORTHM" 5 
18@ IF BCD THEN PRINT"GWESTH" 
19@ IF BOD THEN PRINT" SEASTH 
200 WENTZ 

216 PRINT: FRINT" TIME IS UP" 
215 PRINT" MTHE GOLD WAS AT":A:B 


228 END 
220 PRINT" WSEGLEL SDTOWNSE Wi!" 
246 S- RND¢ 1 #18000 


245 PRINT"M" 

256 PRINT"YOU FOUND £"; INT¢S/’2); 
255 FORT=1T0555 : NEMTT 

268 GOTO 25) 
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BREAKOUT 


This version of one of the original computer games makes good use of the colour 
and music capabilities of the VIC. It is very simple to play. You have nine balls at the 
start of the game, and so long as you manage to bounce the ball-off your slide at the 
bottom of the screen, the ball will stay in play. 


Each time you miss the ball, your ‘ball count’ (top left hand corner of screen) is 
reduced by one. Each time the ball count is changed, your score is changed as well. 
You get a score every time you destory one of the coloured bricks at the top of the 
screen. 


You control the action of the slide with “Z” (moves if left) and ““M” (moves it right). 


1 REM BREAKOUT 

5 POKE36878, 15 

16 GOTO4@ 

28 K=~K 

22 POKE36876, 208 

29 RETURN 

38 Y=- 

32 POKE36876, 220 

39 RETURN 

48 PRINT"C)" 

5@ SC=@:Z=9 

68 FORJ=23TO1Q8STEP 3 

76 POKE 7680+J,102 

75 POKE36400+J, (INTCRNDS1)#8) > 
88 NEXT 

98 F=10 

110 X=#-3: Ye 

120 Ae20:M=A 

13@ B=1'N=B 

160 IFAC@ THEN GOSUB 20 

162 IF A>20 THEN GOSUB2000 

165 A=At+h 

186 IFB<1 OR B>20 THEN GOSUB 30 
185 B=B+y 

206 IF PEEK«7680+224A+B)=102 THEN GOSUB 5000 
300 POKES8163+F. 32 

318 POKE 8165+F,32 

320 POKE 8164+F,102 

338 POKE38884+F .a 

348 GETAS 

350 IF A$="Z" THEN F=F~1 

360 IF At="M" THEN F=F+1 

408 POKE 7680+224eM+N, 32 

500 POKE 7686+22#A+B, 42 

5@5 POKE38400+22eA+B, 2 

510 POKE36876,8 

310 M=RA'N=B 

928 GOTO1E6 

2828 GOSUB2a 

2005 IF ABS(F~B»<2 THEN RETURN 
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2018 
2615 
2620 
2022 
2623 
2625 
2638 
5a20 
5001 
Sage 
5883 
5804 
58@5 
5010 
5a20 
5508 
6888 
6805 
6618 


=Z-1 

PRINT" 3@BALL"Z 

FORT=1T020 

POKE36876,128+ 4#T: POKE36876,0 
NEXT 

IF2=@ THEN 6600 

RETURN 

POKE 7686+22#A+B, 32 
POKE36876.8 

FORK=1TO10 
PQKE3687 7, 255~104#K ‘ POKESE877 » 0 
NEXT 

SC=$C+367 

PRINT" #@BALL"2"" SCORE" SC 
GOSUB2a 

RETURN 

POKE36876,8 

PRINT" SMS END " 

GOTOEG18 


NIGHT ON A WILD 
MOUNTAIN 


This program is perhaps best saved for those people who say: “It’s very nice having 
a personal computer, but what can you do with it?’’ Once having seen (and heard) 
this program, they may well be convinced that perhaps they should not have asked. 
The music is wild and random, as befits the title, although the graphics have 
symmetry and order. Enter this program just as it is listed here, then try and work on 


it to bring some order into the music. 


5 PRINT"<]" 

1@ REM NIGHT ON A WILD MOUNTAIN 

12 REM CRANDOM MUSIC, PATTERNS» 

15 M=INTCRND¢1)#8> 

28 R=INTCRNDC1)#18) 

36 B=INTCRND¢1)#18) 

46 C=7911 

5@ D=38631 

POKEC+A, 102: POKED+A,M 

78 POKEC-A, 102: POKED-A.M 

8@ POKEC+11#A+B, 102: POKED+11#A+B,M 
98 POKEC-11#A-B, 102: POKED-11#A-B,M 
97 IF RND61)>0.3 THEN 120 
POKE3E879, 16% INTCRND¢19#16) )+INTCRNDC1)#8+8 
POKE36878, INTCRND(1)#15)+1 
POKE36874, INTCRND¢1)#*128)+128 
POKE36875, INT(RND¢1)#128>+128 
POKE36876, INTCRND(1)#128)+128 
POKE36877. INT(RND(1)#128)+128 
IFRND(15>.1 THEN2@S. 
POKE36878,8 

IFRND(1)>.3 THEN215 
POKE36874,0 
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215 IFRND(1)>,3 THEN230 

228 POKE36875.,0 

230 FORT=1TORND(1>#20 +5: NEXT 
235 IFRND(1)>.3 THEN25@ 

248 POKE26877,8 

25@ POKE36876,8 

5@8 GOTO18 


SPACE FIGHTER 


You pilot your V-wing space craft across the void, trying to hit the numbers which 
appear at random on the screen. You must be quick, for they only stay there a short 
time. Your score is related to the number you run over. The sound effects in this 
program, and the appearance of the V-wing, are very effective, and you may well 
wish to use these in other space fight programs you write. 


As usual, you control your ship with “A” (up), “2” (down), “,” (left) and ”’.” (right). 


18768 


1e60 


IFld= BOTHENC= EL Sty: 
F=@ 


648° CCeCC4+1: POKEBC ECS. ACECO POKECE CI, 


BOTO pas) 
PRINT" SR @IRAT IME IS WP" 


1 PRINT" S@RIASyOL! SCORED’ Sc 


IFHS<SCTHEMHS 


PRINT" SUIS TGH SCORE: "HS 


POKEZ+21, 102: FPOKES+20741.7° HE 
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4+ HTC RMD 62 #458 2 
5) 


rei) 


QO gaaqg 


Lou un 
Pr; 
ri 


NOUGHTS AND 
CROSSES 


You are the red filled-in circles, the computer the inverse blue crosses. you just 
touch the number where you want to place a piece, and the VIC will do the rest. The 
computer will ignore any opening move which is not the centre square (5). This 
program is based on one written by Stuart Roberts. 


1@ REM HOUGHTS AMD CROSSES 

iz REM 

S REM AFTER PROGRAM BY STUART ROBERTS 
16 REM 


2@ FORA=1709' BCA D=A: NEXT 
38 PRINT" ORS" 

32 E=O' =A 

6A H=2 

7A K=4 

SQ PRINT" Sista" 

9@ FORA=17TO9 

18Q IFAS THEMH=%+3' PRIMT PRINT 
116 IFBCA»=@THEN322 

128 IFBCAD=16THEHS5a 

130 PRINTBCAIS" "5 


148 HEAT 

145 IFB =1GAHDB*6>=1QANDBCS99=1A8THENE=S : GOTO18a 

146 IFE =1@GANDB(S3>=1@ANDBC 99 =1O8THENE=8 : GOTO1Ea 

15@ [FH=1THEN3S@ 

16@ IFE=8THEMPRIWT > PRINT: PRINT" I WIH" : GoTO?3a 
176 IFQ=STHEHPRINT: PRINT > PRINT" IT’S A DRAW" GOTOP Se 


180 PRIHT" SSREEEYOUR MOVE?" 
185 GETA£: [FAS=""THEH18S 

1987 Z=VALCAS> 

190 IFBC29<SZTHENISS 

2024 Q=Q+1 

218 IFZ=11 THENB(S9=10:GOTO6a 
220 H=1: BCZo=8 

238 GOTO7S 

242 FORA=CTOD 

2350 IFBCA)=ATHENBCA=18 

269 A=A+F 
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270 
280 
298 
388 
310 
328 
338 
348 
3508 
368 
378 
388 
398 
4208 
414 
422 
438 
442 
450 
468 
47 
48 
492 
be 1) 
3124 
528 
338 
242 
ban] 
568 
57Q 
58 
598 
682 
618 
628 
638 
648 
658 
668 
672 
688 
63 
7aG 
718 
72a 
7:38 
74 


NEXT 
GOTO68 
IFBCS)=STHENZO 
B(D=18 
GOTO68 
PRINTS @ &"; 
PCA De1 
GOTO148 
PRINTS Si a"; 
PCAIS4 
GoTo14a 
G=2 
C=1:D=9:F=3 
BOSUBSEA 

3: De? Fel 
GOSLIBS8@ 
D=9:Fa2 


C=2:U=s 

GOSWEBS36 

C=1:D=7 

GOSUBS3a 

D=3:F=2 

GOSUBSSa 

Ca4: D6 

GOSUBSSa 

C=? : Des 

GOSLIBSEa 

G=G+1 

IFG=STHENGA 
BOTI390 

E=Q 

FORA=CTOD 
EsE+P CA) | AsA+F 
MEX TA 
IFE®3THEN720 
IFG@QTHENRETURM 
IFE@=3THEN24@ 
IFG#1THENRETURM 
IFE#2THEN240 
IFG*2THENRETLRM 
IFE*STHEM242) 
IFG*2THENRETURM 
IFE=10RE=4THEN29@ 
RETURN 

PRIHT! PRINT: PRINT" VOW WIM" 
FORTS 1703000: NEXT 
RILIN 
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LH; 


MASTERMIND 


The game Mastermind is copyright Invicta, who sell a number of versions of the 
gam which use coloured pegs. Invicta bought the rights to the game from an 
amateur mathematician, Mordechai Meirovich, in 1971, and a couple of years after 
they first marketed it, had a worldwide best selling game. 


The game has been known in England for centuries as Bulls and Cows. Another 
popular version is called Codebreaker. 


The principle is simple. The VIC 20 picks a three-digit code (such as 259), using the 
number 1 to 9. Zero is not used, and no digit is used more than once in the code (so 
117, 494 or 666 are impossible). you have to guess the number in 10 guesses or less. 
The feedback from your VIC is fairly easy to interpret. After each guess you are told 
YOU SCORED 2 BLACKS and @ WHITES, In which a ‘black’ is a correct digit in the 
correct place in the three-digit code, and a white is a digit which does appear in the 
code, but not where you put it in your guess. The computer prints out the answer if 
you fail to get it within 10 guesses 


19 PRINT"*" 

38 FORZ=1T03 

40 ACZI=INTCRND* 19#S)+1 

98 NEXT2 

66 IFACLI=AC2Z50R ACLOFACSIOR AC2=ACS) THENS8 
FO D=1LOO#AC 19+ 1BHAC29+AC 2) 

e6 FORC=1TO1@ 

96 PRINT"GUESS ";C; 

95 INPUT™ 

164 BCLd=INT¢M 168) 

116 EC2d=INTSCM-1068BC 199/18) 
12@ BC3)=%-1G6#BC 1)-10#BC2) 
130 IFD=" THENS68 

156 H=6:W=6 

176 FOR E=1 TO 3 

186 IFACE2<>BCE> THEN 216 

190 N=N+1 

268 ACE) =0 

216 NESTE 

226 FORF=1TOS 
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230 IFACFo=8 THEN 260 

240 FOR E-1 TO 3 

250 IFBCFO<>ACES THEN 276 
268 Web+1 

278 NEMTE 

2e6 MEMTF 

34 ACLIeINT CD Lae) 

300 ACZI=INTCCD-1G8eAC 1) 3°18) 
A Ac2 Ie D-1OOeAC 1 -1ORAC 2) 
PRINT SO SSCORET" 


25 PRINT WHI "BLACKS Sli" Ms WHITES” 

ZA HEMTC 

40 PRINT SY HUMEER WAS" ACL AREAS 
EHD 


2 A PRINT" CONGRATULATIONS" 
GB PRINT'MOU GOT IT TH'sC 
a END 


COLOURMIND 


This, as you've probably guessed, is a colour version of Mastermind. You have to 
guess the computer's pattern of four differently-coloured blobs. You indicate your 
choice of colours by pressing the colour keys on the VIC. 


The colours will first print up as the numbers you pressed, then changed into blobs 
coloured to your choice. Following the blobs will be your score, the first number 
being the correct colour in the correct position, the second the correct colour in the 


wrong position. You'll get ten tries to guess the numbers. Note that no colour is 
repeated within the set of blobs. 


If you’re used to playing Mastermind with coloured pegs, you'll quickly appreciate 
that this is much closer to the Invicta game than are computer versions which use 
numbers. At the end of a game, press any key to get a new game, or ‘S’ to stop. 
JE REPT GO irerd Tmt 
pe" PR I I: ae ee “a Pre TAT PR LT 


CL mee RS 


Se TAT ORM DG 1 oe +35 
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Pe] GOITCAE 
A: TMELITE 


Fo a 


ema Wo | Pe 


a ee eda 


en | oa Ren 


i HEAP Yad 
eee 


PRINTMII Ba" 


“STHEMPR: tit. 1p WoT ES Ue eV 
: PR ae Gas ie FEAETO 


canes me 
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bH 


EXT 
RE TURE 


PRINT’ SYOU GUESSED IT!" 


FRIHT'WTHE CODE WAS: " 
PRIHT' "> TABCSS » 
FORZ=4TOLSTEF-1 


PRIMNTMIDS°A#, 0029.19; "6 
HER 


GETA® : IFAS=""THENLESe 
IFA¢="5" THENEMLD 
Feit 


VICTIM 


This game is simplicity itself. You choose your ‘victim’, a number from one to six, 
and then sit back and watch the VICtim race get underway. 


mw 
‘ 


Lines 15 and 55 are interesting. They allow the VIC to assign a different colour to 
each number, but the same colour to each number when it is printed. You'll see 
what | mean when you run it. The sound routine, staring at line 1000, may well 
benefit from your programming skills. 


5S POKE368 


79,8 


1@ REM VICTIM 
12 PRINT"S]" ‘PRINT ‘PRINT ‘PRINT ‘PRINT! PRINT! PRINT 


15 A¢s=" Mee 
20 PRINT " NAME YOUR VICTIM", ,,,,.,"M@ (1 TO 6") 
38 INPUTW 


35 IFWCLORW>6THEN3O 

40 FORJ#=1T06 ‘BC J)=0' NEXT 

5Q@ PRINT"*]":REM CLEAR SCREEN 
52 PRINT" #" :REM HOME 

54 FORM=1T06 

SS C$=MID$CA$,M, 1) 

68 PRINT TABCB(M));C$ = iM 
65 GOSUB1000 


78 PRINT 


88 BCM>=BCM)+INTCRND(1)+.5) 
98 IFBCM)>18THEN120 


188 NEXT 


118 GOTOS2 
128 FORZ=MTO8 


138 PRINT 
14@ NEXT 

15@ PRINT" 
168 PRINT 
178 PRINT" 


a END OF RACE ss 
MOTHE WINNER IS"M 


180 IFW=MTHENPRINT" BAND YOU BACKED IT!!":PRINT"WELL DONE" 
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185 PRINT 

198 IFWCOMTHENPRINT"@ BUT YOU BACKED"W: PRINT: PRINT" BAD LUCK" 
286 PRINT 

218 FORJ=1T08@0 ‘NEXT 

228 PRINT" PRESS ANY KEY TO” 


230 PRINT"' START" 
248 PRINT"S R NEW RACE" 
250 GETV$ 

268 IFV$=""THEN25O 

278 RUN 

1088 POKE36878, 15 

1818 FORQ=1TO ACM) 

1028 POKE36876, 18@+INTCRND< 1) #60) 
1838 NEXTQ 

1848 POKE36878.0 

1878 RETURN 


MOTORCYCLE 
JUMP 


You are Evil K., world champion stunt rider, and your task in this graphic game on 
the VIC 20 is to jump over a number of red London buses. Each time you succeed, a 
new bus is added to the ones you must leap. 


When you run the program, you'll be told the angle of the ramp, and the number of 
buses you must jump. You enter the speed at which you wish to leave the ramp (we 
suggest you start off between 34 and 40 miles per hour) and you'll see, and hear, 
your motorbike spin up over the ramp, and — hopefully — over the buses. If you 
succeed, the ramp will be raised, and the number of buses will be increased. 


Because the angle of the ramp affects the distance you can clear, and because this 
program uses an approximation to genuine formulae to work out if you would clear 
the buses or note given a particular take-off speed on a ramp of that angle, you'll 
find your interest in this program will remain high, no matter how many times you 
play it. There is no way, for example, to know that if there are four buses, a speed of 
42 mph will always clear them. It depends on the angle of the ramp. 


If you use too much acceleration, you'll flip upside down. Too little, and you'll crash. 


Far too little, and the program will tell you that you've ‘bingled’! If you manage to 
clear eleven buses, you'll be declared ‘The Champ’. 
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16 
12 
15 
20 
20 
160 
105 
110 
i 


’ 


36 
146 


tr. 


e 
to 


145 4 


147 
206 
388 


REM MOTORCYCLE JIM: 
POKE ° ; 
PRINT” ° 


Ba 3000 REM nis PLAY 

UB1AG6: REM CALCULATE 

Bes SINCLED! T 
F >STHEHAS= "CRASHED" 

“L+15 THEHA="SUCCESS" 

IFF°L415THENAS= "LANDED UPSIDE TOW" 

U=1: GOSUBSEGE 

SL+10°H=H+IMNTCRHMDS 1 > #34+1 9 

BSB+1: IFB=117THENS@@0: REM CHAMP IOW 

GOTOLEE 


POKESES7S, 1. 7HZ 


6 RETURM 


28368 
BEBE 
3818 
3828 
3a38 
3048 
BOS 
Bae 
3a78 
3088 
3090 
3895 
3188 
3288 
3216 


PRINT" SSRAMP >"H" DEGREES" 
PRINT" STHERE ARE" B" BUSES” 
PRINT" MTHIS IS ATTEMPT"A 
IMPLIT" SPEED" ji LF <=Q@THEN1 B40 
FORK =1TOS@G : MEX T 

ASA+ LE #529) "368 

Fai EeC DOC CEMSINGM) O32. 29 FeRBSCF 
RETURM 

L=18'H=25 > B=1:)A=1 

RETURM 

PRE LMT " SHeUe Tele Cetele Ta Ca TTA T OR Bile Le" | 
FORZ=1TOB 

PRINT" Sa a! | 

HET: PRINT 

IFU=?THENRE TURM 

POKE? S44, 127: POKESSE64 4 

FORK #17050) GOSUBS10' HEMT 
POKESS664, 1 

We?921'M1L=36641 

FORZ=1TOB+4 

IFA® INTC 2e'4 De 2THEMM eb 23) Web 23 
POKEM+2, 127° 

POKEW1+2,4 
FORK=1T02 : GOSUB360 : HEXT 


32260 POKEWL+Z,1 
3386 FORK=17T01@: HEXT 


3310 
33368 
33508 


HEXATZ 
IFLEFT#¢AS, 1925 "5S" THEH4B08 
PORCSB+4TOR+e 


3360 Welt+23°W1lsh1+23 
3378 POKEW+Z, 127 

3386 FPOREWL+2,4 

3390 FORK=1TO20+2 
3408 HEAT 

3414 FOREN +2, 1 


3428 HE 


3430 POKESESTS. G 
[455 RETURM 
4000 FORK=17T020 : POKES6E7S. IMT 1GeRHIG 1+ 24RD 1889 GOSUBSSO: HEM 


66 


$010 FRIHT' MMOH HO. WOUVE" 
A26 PRIMT' MAF 
2 POKESEST?, 25a 
be FORT= 1TO1LGG:POKESESTS, RMD Low 1 +d 


POKESBSTS . TMT CLE MRMTIG 1 ob aeRO 1 ET 


CG: MEET 
OW RE THE CHAMP! |" 


6008 REMSTART WITH FIRQUMD S440 
6616 REM TOO LITTLE ACCELERATION AMD YOU CRASH 
6626 REM TOO MUCH AMT VOW FLIP UPS TOE TOW 


MONZA 


Monza is a mind-reading mathematical wizard. You first think of a number between 
one and 63. Monza displays a series of numbers on the screen, and you press ‘Y’ if 
your number is among those displayed, ‘N’ if it is not. After a number of screenfulls 
of numbers have been shown, with suitably magical sounds, Monza will tell you the 
number you though of. This makes a good demonstration program to show the VIC 
off to your friends. 


18 REM MONZA, MATHEMATICAL WIZARD 
15 Be=" nes" 

20 X=. 5'NeG 

30 POKES6879, 25 

4@ PRINT" SAMITHINK OF A NUMBER" 

45 PRINT"BETWEEN 1 AND 63." 

S@ PRINT" MMI WILL SHOW YOU! FIVE" 
55 PRINT"SCREENFULLS OF” 

68 PRINT "NUMBERS. IF 'YOUR" 

ES PRINT"NUMBER IS ON THE" 

74 PRINT"SCREEN, PRESS “4 TO" 

BO PRINT"TELL ME. IF IT 1S NOT" 
on » (4 * i u [om] 

68 PRINT'M WILL TECL YOu YOUR" 
35 PRINT'NUMBER AT THE END" 

100 PRINT" SiODORRMPRESS ANY KEY..." 
114 GET AS: IF AS="" THEN 116 
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3 PRINT: PRINT"31 34 35 38 39 


PRINT "Tete" 


PRINT "#35 7 9 11 13 150ge" 
PRINT"M19 21 23 25 27 29 31” 
PRINT" M33 35 37 33 41 43 45" 
PRINT" MH? 49 51 Sz S35 3S? SS" 
PRINT TABCS); "M61 63" 

PRIWT 

GOSUB 338 

PRINT " Cet" 


PRINT"2 36 7 1@ 11 14 15" 
| PRINT:PRINT"18 19 22 2% 26 27 30" 
43" 


i ' 
Je! 


cons m 
“AN ~J 


PRIMHT‘PRINHT"46 47 3@ 31 54 
PRINTTABCG), "SES 62 63" 
PRIHT 

GOSUE 358 

PRINT" Tyete" 

PRIWHT"4 5 6 7 12 13 14 15" 
PRIMT"Me@ 21 22 23 26 29 38" 


3 PRINT"M@31 36 37 36 39 44 45" 


MYM MYy 
WhMh 


Ou bh wk 


PRINT'M46 47 52 S3 54 S55 60" 
PRINTTABCS); "M61 62 63" 
GOSUB 398 

PRINT "Tiem" 

PRINT"S 9 10 11 12 13 14 15" 
PRINT" M4 25 26 27 28 29 30" 
PRIMT'M31 48 41 42 43 44 45" 
PRINT" M46 47 56 57 Se 59 6Q" 
PRINTTABC6); "M61 62 63" 
GOSUB 398 

PRINT " Cee)" 

PRIWHT"16 17 16 19 2@ 21 22” 
PRIHT"Me3 24 25 26 27 26 29" 
PRINT" M36 31 46 49 5@ 51 52” 
PRINT" S53 54 55 56 S57 5S So" 
PRINTTABCE>: "M60 61 62 63" 
GOSUB 396 


68 


248 
241 
242 
243 
244 
245 
258 
264 
27a 
23a 
298 
346 
318 
328 
338 
348 
238 
B95 
400 
416 
426 
436 
446 
458 
455 
4628 
476 
488 
4390 
560 
51G 
52@ 
538 
548 


PRINT" Cxeqe” 

PRINT"32 33 34 35 96 37 38" 
PRINT" M39 40 41 42 43 44 45" 
PRINT" M46 47 46 49 Se@ Si 52" 
PRINT" M3 54 55 56 57 Se So" 
PRINTTABC6); "MEO 61 62 63" 
GOSUB 396 

POKE 36876,15 

FOR T=1TO0255 

POKE 36876. T 

POKE 36876. 255-T’2 

MEAT 

POKE 36878, 6 

POKE 36876,@ 

PRINT MavOUR @NUMBER GAS" H 
FORT=1 7040008: HET : RUM 

BERTH 
CF=MIDSC BS. CINTCRMDCLO#S94+19, 15 
POKESE87&, 15 

FOR T=108 TO 255 

POKE 36876. T-N#3 

NEXT T 
FOKE 3 
FOKE 3 
PRINT 
PRINT C#"IF ‘YOUR NUMBER IS" 
PRINT"HERE PRESS “Y’. IF" 
PRINT "NOT. PRESS “N’*." 

GET At 

IF A¢=""" THEN 4928 


IF AS<>"N" THEN M=h+% 
FOR. T=1 TO Sa@@ 

MEAT T 

RETURM 
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MENTO 


Mento is another mathematical mind-reading wizard. Just get your friends to follow 
the instructions to be amazed, pressing any key after you have followed the wizard’s 
wise words. 


14 REM MENTO 

15 POKE Sé6ero. 8° PRINT" a 

2A GCSB ee 

28 FRIAT MULTIPLY YOUe AGE BY" 
44 PRIAT TMC. THEM ADD FIVE" 
Sa CSL Lei 

Be PRIAT MOM MULTIRLO! THAT" 
TA PRINT BY FIFTY. AMD" 

mt PR Be ue red eas 

Te Brel 

ala) Pe INT" Mei AL THE AMCWIMT" 
ie FPRLMT"OF CHANGE Th oilpe” 
128 FPR LAT POCKET" 

Loe GCs Lie | eee 

140 FRDLAT MCh GIVE ME THE" 
L3G PR LAT HUMBER YOU WE EMIT" 
16a PRINT Ue Mot Te 

17@ TMPUTAD Aer do 

(Sea Baer Lae 

a od os 

20 PRIAT YOU HAWE RO CHRMIGE . 
Sig FRIWT 


220 PRIHT"YOU ARE" BAY YERRS OL” 


pri EMD 

GETAE 

TFAE=" THEM Ae 
{ase FR TAT Om 

{ase FPR DAT! eee" 

(ada RETIRE 
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TIME 
GUARDIAN 


In this challenging game written by Adam Burbidge of Crawley you have to recover 
the six parts of the key of time. The ship starts with 70@ energy points, and you lose 
five points for each move. 


When you first run it, you'll see the message | AM CREATING A GALAXY while the 
VIC sets up the universe for your game, After a brief delay, the screen will clear, and 
it is Decision Time. Every so often the VIC will ask you to set co-ordinates, and then it 
will print: 


QUADRANT? You enter a number from 0 to 6 
SECTOR? You enter another number from @ to 6 
This is repeated. Then it will print: 

TIME? You enter either 0 or 1 


If you land on a hostile planet, the VIC will print SHIP UNDER ATTACK, then SHIP 
ENERGY. .. and a number. You need to press any key (which you may have to do 
several times rapidly) to escape from the hostile planet. 


From time to time you'll find part of the ‘key of Chronos’, the point of the whole 
game. You must find all six parts of it to win, and you must find them before your 
ship’s energy is exhausted. 


3 REM TIME GUARDIAN 

4 REM BY ADAM BURBIDGE 

S DIMKAC4),2$¢19,A466,6,6, 1) 

6 K4C3)=780'F=75 

16 PRINT"?]":REM CLEAR SCREEN 

20 PRINT" @al AM CREATING A GALAXY" 
30 B=INTCRND¢1 #6) 

48 C=INTCRND( 1)#6) 

58 D=INTCRND‘ 1) #6) 

68 E=INTCRND(1)*2) 

78 AXCBLC.D,E)=2 

73 F=F-1:1FF<@ THEN 85 

88 GOTO38 

85 PRINT"?]":REM CLEAR SCREEN 

98 GN=INTCRNDC19#294+1 

106 PRINT" SYOU START AT GLODNOB" 
185 PRINT 

119 PRINT" @QUADRANT 5" 

115 PRINT 

126 PRINT"MSECTOR 3.4" 


7\ 


125 
130 
135 
140 
150 
160 
165 
170 
180 
185 
198 
200 
210 
300 
310 
320 
330 
346 
350 
360 
378 
380 
400 
4108 
420 
430 
440 
500 
51@ 
520 
540 
550 
560 
565 
570 


PRINT "4ST IME"GH¥1G@"EARTH YEARS" 


PRINT" @SET CO-ORDINATES" 
INPUT" QUADRANT" 5 6 
INPUT"SECTOR" > H 


INPUT"SECTOR" ; I 

INPUT" TIME" 5 J 

K463)=KA639-5 

IFAX(G)H.1,J9=1 THEN PRINT" &svOU ARE ON GLODNOB" :GOTO9@ 
IFAK(G.H,I,J9>1 THEN 300 

PRINT"RDEEP SPACE": GOT0140 

PRINT"@YOU ARE ON A PLANET" 

PRINT" &aQUADRANT "G 

PRINT" @SECTOR"H, I 

PRINT" ST IME" JHINTCRND& 19#7 > 

K4C1=INT CRNDC1)#20)4+1 

IFK4619>5 THEN 276 

PRINT" @UN@ INWHASBINTED" :GOTO146 
IFKAC19>18 THEN 400 

PRINT" M8INHABITANTS HOSTILE" : GOTOS@a 
PRINT" S@PART OF THE KEY OF". "4 CHRONOS 
Kat 2.SKKC2)+1 

PRINT"'YOU NOW HAVE"KAC2>"PARTS","OF THE gakKEY" 
IFK4629=6 THEN PRINT"MYOU HAVE WON!" > END 


IF 2$¢1)=""THENS4@ 


PRINT" @@SHIP UNDER MATTACK!"” 
KKC3)*K2¢32-INTCRNDC 1 #58) +1 

PRINT" @SHIP ENERGY: "K2%3 

IFK%¢39<1 THEN PRINT" SMSHIP MDESTROVED" ' END 
FORT#=1 T0200 : NEXT 


588 GOTOSaa 


i NADER LE 


SUPERBOWL 


The VIC sets up the pins for you in this simulation ofa 10-pin bowling alley, and then 
obligingly knocks them down, adding up your score as it goes. 


There are 10 frames to a game, two balls to a frame. As you'll play this game, you'll 
find that strikes are few and far between. There is a highest score routine (31@to 330) 
which you may well want to adapt for other games you write. 


FRAME 4 B 


*D 


5 REM SUPERBOWL 

28 Y=0:S=B 

3@ PRINT"Z]" :REM CLEAR 

4@ FORB=1T010 

5@ GOSUBS3 

60 FORE=1T02: PRINT: PRINT: PRINT 

65 PRINT" #" REM HOME 

78 PRINT" MFRAME"B"SBALL"E 

75 PRINT: FORT=1T05@0 ‘NEXT 

88 2=0 

98 FORC=1T010 

100 IFE=2THEN120 

118 ACC=79 

120 IF RND(1)>@.5 THEN ACC=45 

130 IF ACC)=45 THEN Z=Z+1 

148 NEXTC 

145 PRINT: PRINT: PRINT | 
15 PRINT. "@"CHR$(AC1O)9" "CHRECAC9))" "CHRS(AC8))" "CHRECAC7)) 

155 PRINT :GOSUB700 | 
160 PRINT," "CHR$(AC6))" "CHRECACS))” "CHRECAC4)) 

165 PRINT: GOSUB700 
178 PRINT," "CHR$(AC3))" "CHRECAC2)) 

175 PRINT: GOSUB700 
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18@ PRINT,” "CHRECACL 9) 
190 PRINT 
200 PRINT" ‘MMSCORE THIS FRAME"Z" 
215 PRINT 
| 22@ IFE=1 ANDZ=1@ THEN 370 
230 IFZ=10 THEN 2=15:PRINT. "MasBONUS! |" 
24@ IFE=2 THEN S=$+Z 
250 IFE=2 AND BC>1@ THEN PRINT" SCORE SO FAR 15"S 
26@ FORT=1T01000 NEXT 
| 278 PRINT 
280 NEXTE 
| | 290 NEYTB 
ait 300 PRINT"MSCORE FOR THAT GAME WASK"S" 
Hi 31@ IFS<'Y THEN 330 
iH 228 Y=S 
| 33@ PRINT"  @SHIGHEST $0 FAR"Y 
348 FORT=1T09000 : NEXT 
350 $= 
aa 368 GOTA29 
370 PRINT 
380 PRINT, "M&STRIKE! |" 
385 PRINT 
39@ FORT=1T01000 NEXT 
418 S=S+15 
I 428 E=2 
449 GOTO236 
ial 5@Q FORD=1T010:ACD)=79 :NEXT 
505 GOSUB20aa 
51@ PRINT "3" 
520 PRINT " mMFRAME " 
530 PRINT: PRINT 
54@ PRINT: PRINT 
550 PRINT, "M"CHR$(AC10)9" "CHR$CAC9))" "CHRECACB))" "CHRECACT)) 
555 PRINT 
56Q PRINT," "CHRSCAC6))" "CHRECACS))" "CHRECAC4)) 
565 PRINT : 
578 PRINT." "CHR$(AC3))" "CHRSCAC2)) 
575 PRINT 
5@@ PRINT."  "CHRECACL)? 
585 FORJ=1T05 :PRINT" "NEM 
590 FORT=1T01000:NEMT 
608 RETURN 
709 REM DELAY, SOUND 
710 POKE36878, 15 
720 FORU=249T0239STEP-2 
730 POKE36876,U 
750 FORU=238T0249 
768 POKE26876,U 
770 NEXT 
7@@ POKE36876,0 
808 POKE26879. 6 
Q18 FORT=1T050: NEXT 
82@ RETURN 
2080 REM SET UP SOUND 
2018 POKE36878, 10 
*2020 FORK=248T0148 STEP-2 
2025 POKESGR79, 26+INTCRNDG1 #6) 
2038 POKER6876, K 
2040 POKE36875.K 
2058 NEXT 
2055 POKES6878,0 
2060 RETURN 
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OMOKU 


In this game, you and the VIC take it in turns to place your pieces (‘H’ for you, ‘C’ for 
the computer) on an eight by eight board, trying to get five pieces in a row. The 
computer plays anextremely good game, so good that it was necessary to cheat 
when we were developing this program in order to win to check that the YOU WIN 
routine was working correctly. 


You have the choice of first or second move, and you enter your move by indicating 
the number along the side, then across the top, 


As you can see, the program cycles through a loop (lines 60 to 100) over and over 
again, calling up various subroutines to do the needed tasks. The board is printed by 
lines 230 to 320, and you may well want to modify this to print different symbols for 
the pieces, or use the same symbols as in the program, but with different colours. 


The game can end in three ways. You defeat the computer (line 640), the computer 
defeats you (line 1140) or the computer concedes defeat (which it will only do after 
having chosen 400 squares at random, see lines 950 to 975). This program is based 
on one written by Graham Charlton, 


OH PROGRAM Bit GRAHAM CHARL TOM 


MAC Ae LB 
“RINT! amc" | 
“TMT eee | 
BTHEMPRIMT "fii. "i 


Cee TE et te 


A) 


G=G°>H1=: 
FORA= 1270 


BE THEM Sia 


LTHEMH 1 =: Lek 

ETHEHS6@ 
IFT=1ANDLA40Re TH20R T= 3 oA DLS THEME 
fst 


Hier: GF 
MEM T 

IFH1 >a THEM See 

T=T+1: [FTS4 THEMES 

A=1 

G=INTCRNDCO eh P5413 

IFAC G)=467THEMS8a 

A=FAi+ 1: IFAC466THEMSSe 

PRINT" S$MQUMDTs Tete teteeTerereleteetd COMCEDE"  GOTOSTS 
ALGI=C RETURM 

a a Le 

POs 1 TO Ks: pe yo 

GOSUEL +e 

H=-M: GOSUB 146 

TFESLTHENL SK, 

HEXT 

TFL STHENPR IMT " SEMTeDeTe detector TeTetM TORT MTA GOTO 4G 
RETR 

PRINT "CJ" 

DIMAC Lee) 

FORA=1. TOS: FORB=27T09 ACA LE+B e465 MENTE. A 
FORG=1 704: READM CG MEAT 

DATAL, 3.18.14 

HEASCE "HY CeASC CC" 2 


PRINT" AMIIMEMTER Y IF YO WANT THE FIRST MOE. Me 


GETR: TPRECS "bY AM DPS. "4" THEM Se 
PRINT"! POKE BESTS. 28s 

TF F #2 ""'" THEMRE TUF 

FOP Sa. TOL T CRT 9 we at 

READS ) MEST 

AceoeC: RETURN 

DATAS4$. 25. 36.44.4647) 94.55, 56. 57,66 
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TF WOW Tet" 


FAIRWAY 


In this game, you are ona nine hole golf course. The length of each hole varies each 
time you play the game. The program makes much use of POKEing to create the 
green, and move the ball. The sound the ball makes is particularly interesting if you 
overshoot the hole. 


1@ REM FAIRWAY 

15 POKE36879, 28 

28 SC=Q°REM SCORE 

38 AV=6°REM AVERAGE 

1@@ FORA=1T09'REM NO. OF HOLES 

165 T=8'REMTALLY THIS HOLE 

118 D=INTCRND(1)#79+14°REM DISTANCE TO HOLE 

120 PRIHT"T)" REM CLEAR SCREEN 

125 C=@ 

138 M=@ 

498 GOSUB6GQG 

506 GOSUBSAGB 

Si@ IFM<>D THEN 598 

S20 IFABS(M-Di<2 THEN 206 

S25 IFM>21 M=21 

528 GATOS 

546 END 

5@@@ PRINT "RESSHOLE NUMBER"A 

5085 PRINT: D¥1O" YARDS" 

581@ PRINT 

5012 PRINT" @SCORE"SC"§TALLY"T 

5@15 IFD=M THEN 8060 

5020 PRINT"MDISTANCE FROM HOLE: " 

5@25 IF D-M=21@ THEN PRINT’@"¢D-Mow10"YARDS = " 
5026 IF D-M¢ 1@ THEN PRINT" "(D=M)#18"VARDS if 
5838 PRINT" 4" 


504a 
5842 
544 


6018 
6820 
6830 
6848 
6850 
6Q6a 
6865 
Bara 
6188 
7806 
TAGS 
7628 
7838 
7046 
7050 
7668 
7588 
8008 
e802 
8883 
8824 
8018 
3828 
8038 
82842 
8658 
8860 
8062 
8065 
e678 
8998 
gna 


INPUT"WHICH CLUE" ;C 
T-T+i 

GOSUE7G60 
POKES@720+M. 1 


7 IFM2D THENC=-C 
OB M= INTOM+CSRRNDC1+1> > 


=a 
POKEQQ104+M1. $1 
POKES@730+N, 2 
RETURN 


9 END 


REM DRA GREEN 
FORO=8832T08119 

POKEQ. 182 
POKEQ+38752-8032,5 

NEXT Q 

POKESO32+D, 74 POKESO23+0, 75 
POKE2S752+D, 2: POKES27S3+D, 2 
POKESO1Q+M, 81 

POKESET 30+, 2 

RETURN 

FORW=128T0190+34" 
POKE?6978, 15 

POKE26875.. bi 

POKE36874,W 

NE“ TW 

POKE36875,8 
POKE26874.6 
RETURN 
T=T-1 
POKE26875,, 228 

FORP=1T0S:HEXT 

POKE26876,@ POKEZE87E, 225 POE? 
PRINT'YOU GOT IT IN"T 
POKES@10+M", 1 

POKE@@32+M, 21 

POKE38774+M,2 

POKESO223+M, 142 

POKESETFS+1, 5 

SC=SC+T 

PRINT" @AVERAGE" THT SC/A+, 5) 
FORH=1 T0500 ' NE“ 

NEYTA 

EMD 


a 
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ROBOT NIM 


The VIC prints a number of odd triangle shapes, tells you how many you can take, 
then takes a few of the shapes itself. This fascinating process continues until there is 
only one left. At this point the player who must take the last one loses. 


Structure of the program 

Line 20: Determines the number of objects. 

Line 50: Determines maximum number to be taken. 

Lines 100 to 130: Print out the correct number of triangles, starting new lines at random (see 
line 120). 

Lines 210 and 215: Determine how many the ‘robot’ will take. The random bit at the end of 
line 21 ensures that the robot makes mistakes from time to time. Line 215 ensures that 
the mistake is not so large that the robot breaks the rules. 

Lines 28@ to 298: Place a coloured border between rounds of the game. Design this to suit 
yourself. 


19 REM ROBOT NIM 

20 M=0:E=@:2=16+INTCRND(12#8> 

3@ PRINT"*]":REM CLEAR SCREEN 

40 IF2KINT(2/29=Z THENZ=Z+1 

5@ H=3+INTCRND¢15%2) 

68 PRINT" MMAXIMUM TO TAKE"H 

78 GOSUB286 

8@ IF E>@ THEN PRINT"SYOU TOOK"E, "ROBOT TOOK"Q 

98 PRINT" Si" 

188 PRINT"@" :FORK=1T0Z 

11@ PRINTK; "FF"; 

12@ IF RND¢193@.6 THEN PRINT 

13@ WEXTK 

148 GOSUB288 

145 PRINT"SHOW MANY WILL". "YOU TAKE"; 

156 INPUTE 

160 IF E>H THEN 150 

170 2=Z-E 

188 GOSUB280 

198 IF Z<1 THEN PRINT"@YOU TOOK THE LAST ONE", "4g SO ROBOT WINS!! " ‘END 
21@ Q=Z-1-INTCCZ2-1)7CH+1 9 2 CH+1-INTCRNDC 1 #2)+INTCRNDC 192) 
215 IF Q¢1 OR Q>H THEN 218 

228 GOSUB288 

238 2=Z-Q 

24@ IFZ=@ THEN PRINT"AROBOT TOOK'S"Q,,,"—8SO YOU MMWIN! |": END 
278 GOTO6a 

288 PRINT 

28S PRR TNT "SRR tk He OR Se i a E  "* 

298 RETURN 
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ZAUPER 
ATTACK 


In this program, by Christopher Hutber of Milton Keynes you must zap the Klingons 
before they are eaten by the Zaupers. you need to take care because these creatures 
may also eat you. “Z”’ moves your gun left, and “C” moves it right. “’X” will fire your 
gun. Full instructions are within the program. 


A PR THT IM 

{ PEMGPVARLE PROGRAMME DY “UT STOPHE 
pieEN an cervearat HPTSTOPHER HUTBER AGED 12 
3 GOSUB 7086 

8 T1=TI 

9 SC=0 

10 PRINT"sJ" 

12 PRINT " MONDO 

13 REM DRAW KLINGONS 

15 POKE 36879,8 

20 FOR [=38498 TO 38531 

3@ POKE 1,1 

48 NEXT I 

5@ FOR H=7680 70 77K7STEF 3 
6@ POKE H,61 

76 NEXT H 

98 REM DRAW GUN 

189 T=7955 

110 FOR R=386647038664+21 
112 POKE R.7 

114 NEXT R 

128 POKE T.65 

13@ IF SC#38 THEN 1080 

135 REM GET INSTRUCTION 

140 GET AS‘ IF A$=""THEN 3000 
170 IF A$e"X"THEN4S88 

180 IF A$="C"THENSOO 

198 IF A¢="2"THENZOO 

192 IF A$="*" THEN 5000 

195 GOTO 146 

197 REM MOVE GUN 

200 FOR B=7944T07965 

218 POKE 3.78 

228 NEXT B 

238 T=T-1‘GOTO 128 

300 FOR B=7944707965 

318 POKEB, 78 

320 NEXTB 

33@ TeT+1‘GOTO 128 

399 REM FIRE 

40@ FORF=TT07680+(1-7944)8TEP-22 
418 POKEF, 46 

412 FOR Wel TO2ZS:NEXTW 

414 POKE F,32 

420 IF PEEK(F-22)@61THEN GOTO 460 
430 NEXTF 
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455 POKE F+22,96 

468 FOR 1#1T0S@:NEXTI 

478 POKE F,67 

472 FOR Ge7680+(T-7944)TOT-228TEP22 
474 POKE 0,96 

488 POKEF-22,32 

482 IF PEEKCF)COG1ANDFC77@2THEN GOTO 600 
488 POKE 36677,220 

490 Ls7 

508 POKE 36676.L 

518 FOR MaiTO 280 

528 NEXT M 

548 POKE 36876.6 

55@ POKE 36678,8 

555 SCe8C+1 

560 PRINT" MSCORE:";8Ci"'1" GOTO 128 
600 PRINT" M@BCORE:";SCi""":GOTO 128 
1008 PRINT"<*Y" 

1085 T2eTI 

1818 POKE 36879, 30 

1028 PRINT" WELL DONER" 


1838 PRINT"YOU WIPED OFF THE KLINGONS IN "j INTC¢T2=T1)/60))" SECONDS! " 


1831 POKE 36878, 15 

1832 FOR Lal TO 168 

1033 POKE 36876, INTCRND(1#128)+128 
1634 FOR M=i TO 18 

1035 NEXT M 

1836 NEXT L 

1037 POKE 36876,8 

1038 POKE 36878.8 

1048 PRINT: PRINT 

1850 PRINT"PLAY AGAIN 7" 

1855 PRINT! PRINT 

1868 GETSS 

1070 IF S8=""THEN1@60 

1068 IF S$="Y"THEN 6 

1698 IF S$="N"THEN1200 

1188 GOTO 1860 

1208 PRINTTABC7); "BYE BYE" 
1285 PRINT 

1210 PRINT" THANKS FOR PLAYING" 
1388 END 

2999 REM ACTIVATE ZAUPERS 
3088 FORE=1T018:ReINTCRND< 1 )75)+7680 
3018 IF R>7767 THEN 3800 

3828 QeINTCRNDC1)N2@)#7944 
3058 De@. 5+RNDC1) 

3860 IF DCITHEN Va21 

3078 IF DDITHEN Ya23 

3180 FOR Z2=RTOQSTEPY 

3118 POKE 2,61 

3128 POKE 2-V,32 

3138 FOR X#1T025 :NEXTX 

3150 IF AS="*"THEN 5150 

3208 GET AS‘ IF ASC>""THEN 178 


4056 PRINT 

4188 PRINT"MOON BASE DESTROYED! " 
4158 REM EXPLOSION 

4200 POKE 36877,220 


4230 FOR L=iSTO@STEP-1 

4258 POKE 36876,L 

4278 FOR M=i1T0300 

4298 NEXT M 

4380 NEXT L 

4328 POKE 36877,0 

4330 POKE 36876,0 

4588 GOTO 1040 

500@ SC#SC-5 

3188 PRINTSC; ""y" 

5208 FOR K#1TO 5Q@:NEXT K 

5388 GOTO 18 

7000 PRINTTABC3) ; "Gf qaemmeemsmens 
7018 PRINT TABC(3); "§ZAUPER ATTACK! @ " 
7028 PRINTTABC3); "8 BY a" 
7030 PRINTTABC3);"§C.R.J. HUTBER @" 
7648 PRINTTABC3) ; " O) ‘Wamu if " 
7068 PRINT: PRINT 

7188 PRINT" INTRUCTIONS ¢Y OR ND?" 
7120 GET M$: IF M$=""THEN 7120 

7138 IF M$="N"THEN RETURN 

7148 IF M$=")"THEN 7500 

7158 GOTO 7128 

7588 PRINT" YES" 

7318 PRINT 

7528 PRINT"’KLINGON ATTACK’ IS A GAME OF SPEED, " 


7538 PRINT: PRINT" THE OBJECT IS TO KILL ALL THE KLINGONS IN 
POSSIBLE." 

7548 PRINT: PRINT 

75580 PRINT"HIT A KEY" 

7560 GET N$: IF N$=""THEN 7566 

7688 PRINT"<]" 

7618 POKE 36879,8 

7620 PRINT" @ KEY" 

7630 PRINT" ——s 

7648 PRINT: PRINT 

765@ PRINT" @ -KLINGON" 

7655 PRINT 

7660 PRINT" = -ZAUPER" 

7665 PRINT 

7678 PRINT" @ ~YOUR GUN" 

7672 PRINT ‘PRINT: PRINT 

7675 PRINT"HIT A KEY" 

7680 GET O$:IF O$=""THEN 7682 

7708 Ce nae o. 

POKE , : 
$20 PRINT"@THE ZAUPERS EAT THE KLINGONS AND WILL 
7730 PRINT"CRASH INTO YOU GIVEN HALF A CHANCE. 

7735 GOSUB 9000 

7740 PRINT: PRINT 

775@ PRINT"TO MOVE YOUR GUN PRESS" 
7768 PRINT:PRINT"’Z’-MOVES IT LEFT" 
7770 PRINT:PRINT"’C’-MOVES IT RIGHT" 
7888 PRINT: PRINT 

781@ PRINT"TO FIRE GUN PRESS: ’X”" 
7820 PRINT:PRINT 

7838 PRINT"HIT A KEY" 

7840 GET V$:IF V$=""THEN 7848 

PRINT" <I" : 
7908 PRINT"WHEN ALL THE KLINGONS ON THE SCREEN HAVE" 

RINT" GONE. PRESS: “#*" ; 
528 ORINT“THIS WILL TAKE YOU BACK TO THE START AND 
793@ PRINT" TAKE AWAY FIVE POINTS" 
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AS QUICK TIME AS 


7958 PRINT: PRINT 

6008 PRINT"HIT A KEY TO START" 

8010 GET X8: IF X$=""THEN 6818 

8028 RETURN 

9082 PRINT: PRINT 

9018 PRINT" THE ZAUPERS ARE HIGHLYSENSITIVE TO THE HEAT “ 
9828 PRINT"GIVEN OFF BY YOUR MOVEMENT AND FIRING," 
9038 PRINT" THUS WHEN YOU DO SO," 

9840 PRINT" THEY ARE PARALYSED! " 

9045 PRINT:PRINT"HIT A KEY" 

9058 GET Y$:IF Y$=""THEN 9850 

9060 PRINT"*3" 

9878 RETURN 


VIC-ET-UN 


In this program you and the VIC (with thunderstorms, lighting bolts and other 
distractons) take it in turns to roll a dice trying to get a total as close as possible to — 
or equal to — 21, without going over 21. This game is a dice version of Blackjack. 


It is very simple to play. After pressing RUN, you'll be told to touch the “2” key to roll 
the dice, the ‘“‘M” key to stand, that is, to stay with the total you now have. Your total 
will apear, and the choice to roll or stand again. Once you've decided to stand, the 
VIC will start to roll, and will — in two games out of three, on average — beat you. 


Structure of the program 

Line 10: Sets the counters for the human (H) and computer (C) scores. 

Line 20: Sends action to the wild and crazy subroutine which selects colours and sounds 
randomly. 

Lines 38 to 80: Accepts and acts on the player’s decisions. 

Lines 90 to 130: Computer decides whether to add to its total or stand. 

Lines 149 to 250: Decides who has won, creates some more mayhem, starts a new game. 

Line 260: Delay loop, called various times during the program. 

Line 990: Assigns A$. 

Lines from 1000: Selects an element from A$ to change the colour, then does some quite 
exciting things with the colour and sound. 


5 REM VIC-ET-UN 

7 PRINT"CI":REM CLEAR SCREEN 

18 H=0:C=0 

28 GOSUB99@ 

30 PRINTB$;" ENTER Z TO ROLL" ‘GOSUB1O@0: PRINTBS; " ™ TO STAND" 
35 GETM$: IFM$=""THENSS 

40 IFM$="M"THENSO 

5Q H=H+INTCRND(1)#69+1 

66 GOSUB26@ : GOSUB1000 

7@ PRINT:PRINTB$;" ‘YOUR TOTAL IS"H 

75 GOSUB26@ : GOSUB26@ ‘ PRINT 

88 GOTO32 

98 IFC>H AND C<22 OR C>21 OR H>21 ORH=21 ANDC#21THEN 140 
188 C=C+INT“RNDC1)#6)+1 

118 GOSUB268 
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115 PRINT: PRINT 

128 GOSUB1000:PRINTBS;" MY TOTAL IS"C 
138 GOTO96 

148 GOSUB1000: PRINTBS; 

15@ GOSUB260 : GOSUB18@0 : GOSUB260 

170 IFH=COR(H>21ANDC>21 > THEN240 

175 PRINT: PRINT: PRINTBS; 

188 IF(C>H ORH>21)ANDC<22 THENPRINT,"I"; 
198 IF(CCHORC>21 )ANDH<22THENPRINT, "YOU" ; 
208 GOSUB1G00:PRINTB$;" WIN! !" 

216 GOSUB260 

228 GOSUB1000 

225 FORJ=1T07 : GOSUB260 : NEXT 

226 GOSUB1900 

238 PRINT"<}" : RUN 

248 GOSUB1@00:PRINTB$; "DEAD HEAT, BUDDY!" 
258 GOTO225 

268 FORE=1 T0500: NEXT 

278 RETURN 

999 A$="TE a" 

1008 BS=MIDSCA$, CINTCRND(1)#79+1), 1) 
101@ FORJ=1TOINTCRND(1)#10)+1 

1628 POKE36878, INTCRND(1)#18)+6 

1838 FORK=1TOINT(RND¢1)#7>+2 

1840 POKE36876,K+180-INTCRND¢ 1 #30) 

1858 NEXTK, J 

1876 POKE36879, INTCRND< 1 >#3>+28 : POKE36879,8 
1875 POKE36879, INTCRND¢1>#3>+28 

1886 POKE36879, INTCRND(1)#*3)+28 

1898 POKE36878,8 

1188 RETURN 


EVOLUTION 


In 1970, John Conway, who was then attending Cambridge University, invented the 
game of LIFE, which rapidly became a computer ‘hit’ after it was described in the 
October 1970 issue of Scientific American. 


LIFE, which simulates the birth, growth and death of a cell colony, produces rather 
splendid visual effects. 


Mr Conway’s rules are simple, but produce unpredictably interesting results. The 
cells in LIFE are born, live or die in accord with the dictates laid down by the God 
Conway. According to his writ, each cell has eight neighbours; every cell with two 
or three neighbours survives to the next generation; if there are three, and only 
three, neighbouring cells, a new cell is born; and any cell with four or more 
neighbours dies from overpopulation. 


EVOLUTION is a version of LIFE written especially for the VIC. Setting up a black 
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screen with a red border, the program puts cells ona14x14gridinaccord with 
the Conway rules. The game as listed is silent, but if you'd like to add a little sound — 
which tells you how things are going in the program — add the following lines: 


6 POKE 36878,/ 
225 POKE 36876,240:POKE 36876,0 
1975 POKE 36876,235:POKE 36876,0 


REM EVOLUTION 

PRINT"Z]" REM CLEAR SCREEN 
) PRINT" a" 

POKE 36879,16:REM RED BORDER. BLACK SCREEN 


DIMA 14,149, 0014, 14) 

FORM=2 TO 13 

FOR'Y=2 TO 13 

8 IF RPNDC1920.5 THEN ACH Yo 
B BLM, WISALK YP) 

NEMT'Y 

NEXTX. 

GOSUB1A80 

G=G6+1 

168 FORM=2TO13 

110 FORY=2T012 

128 C-8 

126 IF ACM-1.%-1)=1 THEN C=C+1 
140 IF ACM=-1,'5>1 THEN C=C+i 
158 IFACM-1.'%+19=1 THEN C=C+1 
168 IFAM. Y~-1571 THEN C=C+1 
17@ IFACN.Y+19=1 THEN C=C+1 
196 IFACM+1.7%-1)=1 THEN C=C+1 
194 IFACH+1.'%9>1 THEN C=C+1 
IFACM+1.%+19=1 THEN C=C+i 
CM, Y9=1 AND C<>2 AND C3 THEN BCH, 79>8 
v'¥9=6 AND C=2 THEN BOM, ord 


DPWONA MW WOKE 
Qoue 


ueae 


256 GOTO30 

999 END 

1860 PRINT": REM HOME 

1082 PRINT:PRINT® EVOLUTION 22"5G; "MI": REM WHITE. YELLOW 
1805 PRINT 

1916 FORM=1T014 

1028 FORY=1T014 

1828 ACK, YO=BCM, YD 

Yo=1 THEN PRINT" #"; 

¥9=@ THEN PRINT" "; 


189@ RETURN 


SUPERPOET 


The VIC turns into Wordsworth, cranking out some splendid poems, and a few 
which are not so brilliant. Once you've seen it in action, change the words in the 
subroutines 10@ to 27@ to suit your own taste. Note the use of ON. . .GOSUB in line 
40. 


1 5 REM SUPERPOET 

|| 1@ PRINT"?]" REM CLEAR SCREEN 
15 IF RNDC15>8.3 THEN 30 
28 FORJ=1TORND¢19#2 ‘PRINT ‘NET 
3@ FORJ=1TO RND(1)#5+1 PRINT" ") -HEXT 
35 J=INTCRND(19#18>+1 | 
48 ON J GOSUB 100, 110.120,130.14@, 158, 168,178,188, 198.208, 218,220,230, 248,258, 26 | 
9,278 

— 58 FORP=1T0 RNDY 19#*2000 NEXT 

78 GOTO1S | 

186 PRINT" @DETACHED": ‘RETURN 

118 PRINT" UNAWARE"; ‘RETURN 

2@ PRINT" MUNABLE": RETURH 

126 PRINT"@INITIATE": ‘RETURN 

14G PRINT" MREACHED OUT FOR". RETURN 

156 PRINT"SAYOIDS") ‘RETURN 

166 PRINT" MSUFFERS": ‘RETURN 

178 PRINT" @CAPACITY"; ‘RETURN 

18@ PRINT"MSPIRITUAL". ‘RETURN 

19@ PRINT"KALTHOUGH"; ‘RETURN 

260 PRINT" MDISCIPLE"; ‘RETURN 

21@ PRINT"GHE"; ‘RETURN 

220 PRINT"AND" ; ‘RETURN 

230 PRINT" @THEN"; ‘RETURN 

240 PRINT"BMASTER" | ‘RETURN 

250 PRINT" MAFTER"; ‘RETURN 

260 PRINT" MLONELY"; ‘RETURN 

270 PRINT" BHIS"; ‘RETURN 


on ht ate 


AND THEN 
UNAWARE 
UNABLE 
ALTHOUGH 
AND MASTER 
REACHED OUT FOR 


UNABLE 


MASTER RETURNED 
UNABLE 
CAPACITY SPIRITUAL 
DISCIPLE HE 
LONELY HE 


AVOIDS LONELY MASTER 
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SYMPHONY FOR A 
MELANCHOLY 
COMPUTER 


This, the title piece of our book, reflects an effort to write a program which would 
‘write music’ that had some underlying form. The title is obvious and appropriate, 
once you've heard the computer's output from this program. 


The main structure of the music comes from the variables A, B, C, D, E and F which 
are defined on each run. The program is designed so that the chords change with 
reference to a measure (E) and so that the changes overlap each other, thus getting 


rid of harsh stops and starts. 


1@ REM SYMPHONY FOR 

15 REM A MELANCHOLY’ 

16 REM COMPUTER 

18 GOSUB1G06 

26 A=128+INTCRND¢ 198128) 
30 B=128+INTCRND¢1)#123) 
4@ C=L12Q+INTCRND¢19#128) 
56 D=128+INTCRND¢19#128) 
6@ E=INTCRNDC1) #4941 

76 F=2ee 

73 POKE36878.F~-1 

30 FORH=1TOS#E 

186 POKES6874,A 

118 NETH 

124 FORH=1TOS#E 

138 POKE36875.,B8 

146 NEXTH 

15@ FORH=1TOS#E 

168 POKE36876,C 

178 NEXTH 

186 FORH=1TOS#E 

194 POKE36877, 0 

286 NEXTH 


ME AN hot yo OF 
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216 FORH=1TO2#E 
228 POKE36874.A 
230 NEXTH 

248 FORH=1TOS#E 
258 POKE36876,C 
268 NEXTH 

388 RUN 

1886 PRINT"T]": REM CLEAR 

1618 POKE36279. 16#CINTCRNDC 198169 +4 THT CRNDC 1883 +8 
182@ RETURH 


Symphony for a Melancholy 
Computer with Zen Show 


This is the same program as just listed, with an underplayed visual display added. 


1@ REM S'YMPHONY FOR 

15 REM A MELANCHOLY 

16 REM COMPUTER 

1? REM WITH ZEN SHOW 

18 GOSUB1900 

28 A=128+INTCRNDC1)#128) 
30 B=128+INTCRND¢19#128) 
48 C=128+INTCRND¢1)#128) 
5@ D=128+INTCRND¢ 1) #128) : 
6@ E=INTCRNDC1)#2)+1 Maes ita s heed ort 
76 F=2KE 

75 POKE36878,F~1 
96 FORH=1TOS#E 
186 POKE36874.A 
11@ NEXTH 

126 FORH=1TOS#E 
138 POKE36875.B 
148 NEXTH 

158 FORH=1TOS#E 
16@ POKE36876,C 


178 NEXTH 

186 FORH=1TOS#E 

POKE36877,D 1865 FORJ=1TORND(1)#2G:PRINT" "3 :NEXT 

200 HEXTH 1076 PRINT CHRE<119+INTCPND<19#15)) 
1875 FORJ=1TORND(1>9*20:PRINT" "| :NEXT 

210 FORH=1TO2*E 1088 PRINT CHR$(1194+INTCRND(19#15)) 


1085 FORJ=1TORND(1)26:PRINT" "3 :NEXT 


228 POKE36874 A 1098 PRINT CHR$(119+INTCRNDC1#15)) 


238 NEXTH 1095 FORJ=1TORND(19*20:PRINT" "3 ‘HET 
248 FORH=1TOS#E 1108 PRINT CHR$(119+INTCRNDC1)#15)) 
252 POKE36876,C 1118 RETURN 

26@ NEXTH 

5@8 RUN 


1088 PRINT"T)" REM CLEAR 

1818 POKE36879, 16KCINTCRND(1K16))+CINTCRNDCL WB) )+8 
102@ FORJ=1T05 

1838 PRINT 

1648 NEXT 


1@5@ PRINT" SS'YMPHONY FOR A MELANCHOLY COMPUTER " 
1668 PRINT 


VIC CHECKERS 


The VIC puts up a challenging defence in this game of checkers, or draughts. The 
game follows all the traditional rules, except that there; is no huffing (penalty for 
non-capture). Despite this, the VIC will always capture when it can. 


The VIC is the solid red circles playing down the board, and you are the open circles 
playing from the bottom of the screen. You move by entering the letter across the 
bottom, then the number down the side (as C7), then press RETURN, followed by 
the letter across the bottom, and the number down the side of the square into which 
you want to move. If you make a capture, you'll be asked JUMP AGAIN? Enter any 
letter, then press RETURN if you can jump again, or just press RETURN if you cannot 
jump again. You'll then be given an additional move. The VIC makes its multiple 
jumps automatically. 


The VIC always has first move. The number of pieces both of you have captured is 
shown above the board, the game will end if either of you manages to capture all of 
the other’s pieces, or if the VIC judges the situation to be hopeless, and concedes the 
game. Although the VIC is not always too good at spotting threats to its pieces, it is 
most reluctant to move into danger. 


The screen will clear from time to time during a game, to stop the area under the 
board being cluttered by inputs. Although there is no mechanism within the 
program to stop you cheating, there is little to gain by doing so, unless you want to 
force the computer into a particular position to see how it will react. The VIC is an 
honourable opponent, and will not cheat. 


Kings are made automatically. Your kings are letter K’s, and the computer's kings 
are diamonds. Due to shortage of memory, there is no input validation, so be careful 
when you enter your moves. A mistake when entering a move can wreck a game. 
Lines 390 to 405 are the ones in which the VIC checks the safety of its intended 
moves, predicting captures which you will make in a following move if it makes the 
contemplated move. 


The program has been written in such a way that it is easy to change the characters 
used on the screen to represent the pieces. All you have to change is lines 750 and 
900 to use your own choice of characters for the pieces. 
19 REM CHECKERS 
40 PRINT"OFLEASE STAND BY" 

GOSUBSS 


eee S| 


SORA CZ C1 THENGOTO220 
146 IF2“28AMDAC 2921 THENALC 2 ome 
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i 150 Y=1 
7" 168 TFACZ+HC4> )COANDACL+O# CM C9 DeCITHENDEN CY 
i! 176 IFACZS2ANDACZ-4 64> 9 CBANDAC 2-248 04D DSCITHEN GS He 4 
it | 180 IFO<DOANDZ+240>22THENGOTOSSA 
j 198 O=6 
200 IFY=2THEN22R 
i 218 Y=2:G0TO16G0 
220 Z=2+1 
| 230 IFZ<7S3THENI30 
it 240 IFQ=QTHENZ40 
il 250 ACZ+O=G: AC Z+OHOISACZD AZAD 
WW 260 Z=2+2#0 : CO=CO+1 : GOSUBT4a 
Bill 270 O=0:4=1 
ti! 28G TFACZHCY) CORNDACZ+24 CHC 99 SSCTHENDEN CPD ‘ 
iy) 290 IFOC>BANDZ+2#0223THEN250 
31@ IFY=1THENy=2: GoTOZse 
320 GOTOSsse 
340 U=a:g=0 
B50 Z=S4+ INTC RMD LAS : LeLl4+d 
360 IFCACZ)=S0RACZ)=-LORAY 
380 Y=1 
385 LFACZ+HC'939 C>QTHENAZE 
390 TFACZ+K CY D=OANDACZ+Z#X Cy) 9 >- LANDA C 24+ 24H C47 4192-1 ANDACZ+OMM C4 11-1 THENGS 


Hee GORACS 2 =O 9 AMD 1 GQ THENSS A 


395 IFACZ+%0'r) SANDS 1 SQTHEHOSY 67> 
48G IFAC Z9=2ANDACZ—HC > DS BANDAS 2-240 > LANDAY 2-240 +1 > 1 THENGS HY 5 
485 [FUSG@GAHDAC 2 >=2ANDAC 2-804) SA THEMD =i 0D 
2S OTHEH4 58 
426 IF'=1THEN'?=2:GOTOSSa 
430 IFUC1GG@THENSSO 
446 PRINT" I COHCEDE THE GAME": STOP 
458 ACZ+Q=ACZ) AL Z=B 
478 GOSUEPAG 
480 PRINT" SS": INPUT” FROM" (Af THPUT! TO" Ba 
498 TFUSc>" " THEMPRIMT OO": Lige! 
S20 FORMS1TO2: 296 
S38 IFWe1THENCE=Ae 
54@ [FW*2THENC#=Be 
S58 2e-24%¢ C#="G9")-25e0CHS"ES" EMC CER "CS" 27a Ce" AS") -3heC Cee" HS" - SLC ces" 
Fa") 
S52 IFZ¢>8THEHSaa 
S54 Za-SZe CCHS" DS" 9-33e( CHa" BR" Bee CHE GP" OK SMC CHR EP - S9e COSA" CP" I-A Oe CES 
AP") 
556 [F2c>e@THENSee i 
S58 Z=-43e(C#="HE" 9 -44e( CHE" FS" 45H CHa" DG" Gee (Che ES Soe CER G4 oS Lae ge 
E4"> 
S6@ [F2<>8THENSSa 
S62 2=-S2e0CS="C4" -FEe(CHS"HS" 9-H CHEFS" Te CHE" 03" oS ae CH= ES" -B SHC CaS" 
G2") 
S64 [F2C>@THENSSa 
S66 25-648 (C#="E2" 9-65e(C#="C2")-GEe( CS="AL" 69 CHS"H1"9-TOeCCS="F 1") 
S68 IFZ<>ATHENSSe@ 
S7Q Z=-71#( CH=" D1" 9-Paec Cee" Bi 
Se@ [FW1 THEHD=2 
59@ IFWH2THEHE=2 
660 MEXT: Ags"" Bee" Cgs'" 
628 ACE=ACD>  ACDo=8 
65@ IFABSCD-E9>7THENAS CD+E 9/2928! HUIEHLI+ 1 
674 GOSUB?4a 
688 IPABSCI-Es>?THEMINPUT" JUMP AGAIN" | Ut: IFUSt<c>"" THEN48O 
698 IFHU<12ANDCO<12THENES 
78G@ IFHU=12THEMPRIMT' YOU WIM" : STOF 
71iG@ LTFCO=1L2THEHPRIWT' IT WIM": STOP 
740 FORM=24TOF72 
PIG ACMI=-Z2OSe CACM ORL o-21 SEC ACMI R25 -S2HeCACM IS OI-DLSH CACM = 1 - PSEC ACM 29S CAY 
Mo=9> 
7éQ MEXT 
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PRINT" S$" (FRINTTABCS 2 "ME" CO"  GHOL!" HL 
PRIMT  PRIMT > PRIHT 

PRIHTTAEBC6 >" SHRBCIEPGH" 

Ts-2: FORK=8T02  FRINTTABSS) ) /FORJ#aTOS 
PRINT" "  CHRECACPS-7=1 36K 95 MENT Te T+ 
PRINTS" THT“ CJ+K2 
T=QTOZ: PRIHTTAB CE) Pa" | CHRACAC EG T=150K) >) Me: 
[TsT+1 

ATS" THT CK I+K M2 +T 


878 NEXT 

380 PRINTTABCE)" SIRECDEFGH" : PRIHMT 

885 REM PRINT"O"Q" Pa Lol Ww" 

890 FORM=24T072 

9OSG ACMIS-C ACID =2099-2# (ACMI =219 2 +0# CACM IRS2IFCACMISZLS FSH CAC PS OH CACM ee) 
918 NEXT 

920 RETURH 

950 DIMACS9) > XC19=-6: XC 292-7 

968 FORZ=1T099:°ACZ)=9: NEAT 

970 FORZ=1T032: READB: READC : ACB 9=C: MEXT 

986 DATA?2,1,71.1-70.1,.69.1,66.1,65.1,64.1,63,1.59,1.58,1,57,1,56.1 

998 DATAS3.@.52.6,51,.6,50,0,46.0,45,4,44,0,43.8 
1960 DATA48,-1,39.-1.38.-1,.37.-1,33,-1,32,-1,31,-1,30,—1,27, 91,26, 1,25, "1,24, 1 
1618 CO=6:HU=0 

1615 POKEZ63879, 25 
1920 PRINT"T" : RETURM 
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JELLY BEAN 
SPACE SWARM 


In Adam Burbidge’s program, you are the navigator on a starship. Suddenly you 
find yourself embroiled in an asteroid storm. Only you can Save The Ship From 
Destruction. 


You are the purple checkerboard in the left hand corner of the screen. As you'll see 
when you run it, the asteroids appear at different points. By using your two controls 
(4 - left, 6 - right) you have to steer out of the way of the asteroids (which look 
somewhat like jellybeans, hence the title). The pressure increases as the game 
continues. The number of asteroids increases, and their colour changes. 


1 REM JELL'YBEAN SPACE SWARM 

2 REM BY ADAM BURBIDGE 

2 REM STANDARD MEMORY ONLY 

4 SC=0:HS=6 

S PRINT"<]": REM CLEAR SCREEN 

18 FORJ=1T020: PRINT ‘NEXT 

11 POKE36879, 255 

48 POKET746, 182 

43 Be28466 

45 POKE38466. 4 

58 FORT=1T03@0 : NEXT 

68 R=7746 

65 POKEA, 32 

78 GET AS! IF A¢="4" THEN A=A-1' B=B-1 
71 IFAS-"6" THEN A=A+1' BER+1 

72 POVECA-22).32 

73 POKECA~21),32 

74 POKECA-22).32 

75 POKER, 102 

76 POKER, 4 

7? FORT=1T0108 NENT 

7S IFPEEKCA+22)=31 THEN 208 

73 SC+SC+1 

B MH INTCRNDC 15 #5065+7680 
9 POKEM+30720, 6 

A POKE™., $1 
3 


11@ GOTOES 

280 POKE 26877, 226 
216 FORL=15T0@ STEP -1 
228 FOKE 26878, 

230 FORM-1TO308 

240 HENTM 

258 HEXTL- 
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260 POKE 26277.8 

278 POKE36e7s, 0 

280 PRINT"SHIP DESTROYED!!! !" 
285 PRINT"SCORE="; SC 

» IF SCDHS THEN PRINT"HIGH SCOPE=" SC HS#St 
v IF SCCHS THEN PRINT"HIGH SCORE=",HS 
98 FORT=1T0700G: NEXT 

95 SC=0 


@ GOTO 5 (Guaenamnarinerenscenreerer eee — ra — = ev 
50 Y= INTCRNDé 194506 +7636 —<——————— —_————" = . _—-) | 
50 POKEY. a1 —<—_S i — -— ————— 
@ POKEY+20722, 2 —_ lee. = 
324 RETURN a ee ——  — — 
408 D=INTCRNDSC 19¥586 +7680 (mene —— * = 2} = —————_ 
416 POKED, 21 ————————_— —_ — ——| 
420 POKED+30720.5 i —_  —S.eee 
420 RETURN mm. ea eee 
580 PRINT"WELL DONE, YOUVE" -S ~~ > aa :—_ oC — — 
510 PRINT"SUCCESSFULLY NAVIGATED THROUGH" - SS eS OO 
528 POKE36878. 13 Oo tet a ere rer at enn eet a enn i cementenel we —_ ° = ee = 
530 POKE36876,135 = — et eel ee — Eee 
540 FOR O-241 TO 135 STEP-1 F—§ — — —— ——  — ‘——_! 
550 FOPM=1T0106i | 
6.0 MRAEBRER LEE PUT Loe _ a eee ae eee Vee aw — 

A eee “= > = * —_ —— — 

———— 2 ee ss oe oe  ENEUER | 

rr ‘ ——_—— _— — — - ——_————— 

rere ee _ _— m— _ — EEE a Deal 

= — = a es 3s 

664 END fans ———S —- . —_ , 
eee (emer wee Sone 
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HANGMAN | 


This game needs two players, one to enter a word of her choice and the other player 
to attempt to guess the word. The VIC draws a dash for each letter, and then 
changes this into any letter which has been guessed correctly. 


Structure of the program 

Line 5@: Sets up arrays if needed. 

Lines 100 to 130: Accepts the secret word, a letter at a time. 

Line 135: Counts for the 10 guesses. 

Lines 145 to 17@: Select colours at random using the subroutine from 9019, prints the letter if it 
has been guessed, if not prints a dash. 

Lines 218 to 268: Accepts a guess and compares it, letter for letter with the secret word. 

Line 270: Sends control to winning message if word is guessed. 

Line 300 to 330, then from 1045: Losing message, reveals word. 

Lines 1055 to 1100: Offer new game. 

Routine from 50@@: Adds some sound to brighten things up. 

Routine from 9800: Assigns the colour controls to string A$, and then when subsequently 
called (as GOSUB 9016) changes the next thing to be printed to a random colour. This 
subroutine also calls the sound subroutine, then flashes (line 9825) given the border a 
random colour. 


Suggestions for improvement 

@ Get the program to draw a hanged man, part by part, as the number of guesses is used up. 
@ Store a number of words ina DATA statement, so the VIC can choose its own words. 

@ Note that the random colour choice, the sound routine from 50@@ and the random border 
flash are all effective aids to add to your own programs to brighten them up. 


10 REM HANGMAN 

28 PRINT"*)" : GOSUB9G8 

38 INPUT"HOW MANY LETTERS"; N 

5@ IFN>10 THEN DIM BCN),D<N> 

188 FORA=1TON: INPUTCS 

128 BCA)=ASC(C$) : DCAD=BCAD 

13@ NEXT 

135 FORJ=1T018:PRINT"s)" 

148 PRINT: PRINT: PRINT 

145 FORE=1TON 

15@ GOSUB9010:PRINTB$; 

155 IFBCE)=DCE>) THEN PRINT"-"; 

16@ IFBCE)<>DCE) THEN PRINT CHR¢(BCE)); 
170 NEXTE 

18@ PRINT: PRINT 

198 H=@ 

20@ GOSUB9@10:PRINTB$; "ENTER GUESS NO."J 
218 INPUTCS 

220 F=ASC(C$) 

23@ FORG=1TON 

248 IFD(G)=F THEN D<G)=8 

250 IFD(G)=@THEN H=H+1 

268 NEXTG 

278 IFH=NTHEN 1800 

288 NEXTJ 

290 PRINT 

308 GOSUB9@1@:PRINT"SORRY, TIME IS UP" 
21@ PRINT 

326 GOSUB9010:PRINTB$; "THE WORD WAS "; 
338 GOTO1045 
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1088 REM WIN 

1818 PRINT 

1828 GOSUB9@10:PRINTB$;"YOU GOT IT IN"J 
1048 PRINT 

1845 FORQ=1TON:PRINTCHR$(B(Q) >; ‘NEXT 
1056 PRINT 

1855 GOSUB9@1@:PRINTB$;"SANOTHER GAME"; 
1868 INPUTCS 

1@7@ IFASCCC$)=ASCC"Y" THEN RUN 

1888 GOSUB9@10:PRINTB$; "SOK, THANKS FOR" 
1898 GOSUB9@10:PRINTB$, "SPLAYING!" 

1695 FORT=1T0300: NEXT 

1997 PRINT 

1168 GOTO1886 

5@08 REM SOUND 

5810 POKE36878, INTCRND¢1)#8)+8 

5820 FORT=1TO1QOSTEP< INTCRND¢ 1 #8)+1 
5038 POKE36876.248-T 

5648 POKE36877,T 

5@6@ NEXT 

5078 POKE36876,8 

5@8@ POKE36877.8 

5@9@ RETURN 

8998 END 

9806 A$="ea iT" 

901@ BS=MID$SCA$, CINTCRND(1)#79+1), 1) 
9828 GOSUBS880 

9825 POKE36879, INTCRND(1>#6)+26 

9838 RETURN 


HANGMAN I 


Here’s another version of HANGMAN. In this one, the computer picks the word for 
you to guess. Change the words in the DATA statements from line 370 to add your 
own vocabulary. The number of ‘lives’ you have is related to the number of letters in 
the word to be guessed. 


.2 REM HAMGMAM—1 1 
2@ FORG=1TORHDNG 1o#eo+) 
34 READAS 

B MEST 
a y'=0) 
H=LEHC A> 
FORG=1T0H 


A PRINT" Meet G4 1-J" CHANCES LEFT" 
1 IHMPLUITCH# 
FeASCCC#) 
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228 FORG=1 TOM 
236 IFDCG?=sFTHEMDC G26: Je J~ 1 
246 HEXT > HEXT 
256 GOSUES14 
260 PRINT: PRIHT" @asoRr', TIME’S UP! a" 
280 GOTI330 
SOG REM HEMT Hie 
318 PRINTTABCS > "2a ai SOTO@MSES! " 
328 PRINT aol GOT THE WORD TH =4 
336 PRIHT' MIT WAS Sa At 
348 GOTOS48 
378 DATA" TERROR". "POSTURE". "ELEPHAHT". "STATUS". "BACHELOR" » "ANSWER" 
39@ DATA" TENOR". "BAHAMA". "FIGURE". "IDIOT". "NARCOTIC", "PATHETIC" 
398 DATA"WIZARD". "WICKED". "WIZENED". "EVIL" 
480 TATA" PARTICLE". "ATOM". "ELECTROHM". "START". "FAMISHED", "EAGLE" 
410 HG 
415 PRINT" eat" 
417 FORE=1TOH 
426 IFBCE 2 =DC ES THEMPRIMT "Me" | 
3@ [FECE9<>DCE > THENPRINT SS CHREC BCE SO OC HeH+ 1 
446 HEXT: PRINT 
466 PRINT: LFHCDHTHENFPRIWHTH "CORRECT LETTERS" 
48@ PRINT 
498 RETURW 


ANTIHANG 


This is HANGMAN in reverse. The computer tries to guess the word you have 
chosen. 


When you run the program, you'll be asked HOW LONG IS THE WORD YOU HAVE 
CHOSEN? Enter the number of letters in the word — if your word was APPLE you’d 
enter 5 — and then press RETURN. The next thing you'll see on the screen is five 
inverse blue dashes, one for each letter in the word, as well as LIVES LEFT — 10. This 
is followed by | GUESS and the letter the computer has guessed. If the letter is one 
which /s in the word, say A, then you enter 1, to show it was the first letter in your 
chosen word. If the letter is not in your word, you enter 0. Assuming the computer 
guesses A as the first letter. you enter 1, then press RETURN. Immediately, the five 
inverse blue dashes are reprinted, but this time the first one has changed into an A. 
The words | GUESS A are still there, to cater for double letters. As there are not two 
A’s in APPLE, you enter @ and press RETURN. 


Here’s how one game | played with the VIC progressed. | was thinking of the word 
START: 


T-5 LIVES LEFT — 10 ----T 
T-2 _ LIVES LEFT — 10 -T--T 
T-@® LIVES LEFT — 10 -T--T 
E-@ LIVES LEFT-—9 -T--T 
A-3 LIVES LEFT -—9 -TA-T 
A-® LIVES LEFT -9 -TA-T 
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LIVES LEFT — 8 -TA-T 
LIVES LEFT —8 -~TART 
LIVES LEFT -8 -TART 
LIVES LEFT —-8 START | WINI WIN |WIN 


You'll find that generally, the longer the word, the better the chance the VIC has of 
working it out. ANTIHANG is based on a program written by Toni Baker, 


REMETACNF: 1 SHDLFCMUGYPUBIKOMVZ 

L=10: GI=45 

PRINT" CIMMMOHOW LONG 1S THE WORD ‘YOU HAVE CHOSEN?" 
QO IMPLUTH: PRINT! =" 


‘T 
INTCRMDC G0 #2944 
60 BP=CHRSCAC Es 


8 A=o 
D PRINT" Cistelele mies" 
FoRe=1TOH 
30 PRINTCHRE<Gcl o>. 
A NEXT PRINT 
SO PRINT" SMMLIVES LEFT -"L 
PRIHMT" MMI GUESS "Bt 
INFLUTBL 
IFB1=6THENSS& 


1TOW 
=GTHEMF = 1 


E. 
396 IFF=Q@THENPRINT" See RBI@al WIN!!! GoOTOsSe 
460 TFAL=@THEML=L~-1 
418 Al=G: IFLZQTHEN1LS@ 
420 PRINT" SSB RBEIAOW WI!" GOTO426 


FLIP 


FLIP is an intriguing game, which provides quite a bit of mental stimulation. On a 
three by three grid are randomly solid (filled in) and empty circles, By flipping them 
(see the following for an explantion of the flip), you have to end up with a single 
empty circles. By flipping them (see the following for an explanation of the flip), you 
have to end up with a single empty circle in the middle position, and solid circles in 
the other eight positions. 


You can only flip a solid circle. You move by entering the number of the piece you 


wish to flip. Flipping a corner piece causes those adjoining it to change to their 
opposities (that is, a solid circle opens up, an open circle solidifies). Flipping a 
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middle circle on one side changes the two either side of it, and flipping the middle 
one changes the middle piece on all four sides. The piece you flip also changes. 


The number of moves you have taken so far is displayed. At the end of the game, the 
program will pause to tell you how many moves it took to solve it, and then you'll be 
given a new starting position. 


% REM FLIP 

16 M0: G=209' 4%=215 

20 FORC=1TO9 

30 BeINTCRHDC 19+. 59 

35 ACC =O: [LFB=QTHEHACC = 
40 HEXTC 

5@ GOSUBLISa 

68 H=2 

7@ FORC=1iTos 

= THEMM=H+ 1 


38 HEXTC 

186 IFH=1AHDACS »=“THEMGOTO2? 
114 M=tM+1 

115 PRINT MOVE HO. "MO PRIWT PRIWT 
128 PRIMT'SWHICH CHE TO CHAHGE" 
125 GETA&: IFAt=""THENL25 

126 HEVALCAS?: IFHCLORH>STHEM Les 
136 GOSUBS1a 

148 GOTOSa 

17@ EMD 

182 FRIMT! TI" 

138 PRINT PRINT PRIMT 


20G PRINT!" 1" "2" "3" "CHRECACL IO" "CHRECACZ9 9" "CHRECHER) 9 
21@ PRINT 
220 PRINT"§IN4" "5S" "6" "CHRECACAI 9" "CHRECAGS 2" "CHRECACE YD 
230 PRINT 
240 PRINT’M@"7" "S" "9" "CHRECAC TD" "CHRECACEI9" "CHRECACS) 


258 PRINT 

268 RETRY 

27@ PRINT"SOLWED IM"M 

288 FORT=1ToOSaae 

290 MEM 

308 RUM 

319 ITFACN>=4THENRETURM 

320 [TPM=1THENMF C12: FC29=4: 

338 ITFH=2THEMFC1)=1:F¢29=3: 

340 [TFM*3THEHF Clos! FC aoe 

358 [FM=4THEHF «losis Fi aoe? : 

36@ IFM=STHEMF (1 sa: Fc 2>=4: 

378 IFH=6THEHF Cl o=3:FC29=9: 

386 [FH=?THENMF (134: F C2985: 

390 IFN=8THEMFCloe7 Fea oeg: 

408 IFN=STHEMF C1) =: F Ca eS: 

419 POKES6S7S. 15 

28 FORG=17TO4 

425 POKES SPS. SRT | aS 
5. LS8+RMD0 1 #188 

432 IFA‘ E ; HEHA CP (Go eG: GOTO4Se 

440 LTFACK CG? >=QTHEHACK GB) d= 

458 HEATG 

$35 POKES6875, 8: POKES6S7S. 8 

$60 ACH sy 

472 RETR 
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BATTLE 


In this board game, which is somewhat like checkers (except for the size of the 
board, and the method of capture), you are at the bottom of the screen playing up, 
and the computer is at the top playing down, 


The computer always has first move. The aim, as in checkers, is to capture your 
opponent's men, but unlike checkers you capture by landing on @ plece, rather than 
by jumping over it. You move responding to the prompt FROM? With the number 


Be 


——— - st 


wif 


al Wi 
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r across the bottom of the square you wish to move from, then a comma, then the 
i number along the side. You do the same for the ‘to’ square. Amove, then, might be: 
FROM? 6, 2 
TO? 5, 3 ; hs 
The winner is the first player to capture six of the opponent's pieces. 


BATTLE was written by Chris Callender, of Cove, Helensburgh. 


5S REM BATTLE ~ CHRIS CALLEMDER 

10 DATA Si2a4ser% 
| 20 DATA" 1eeeree |" 
30 DATA" See eee” 

40 DATA" Sete 2 
SQ DATA"4# & gee sq" 
66 DATA"S @ ee 5" 
70 DATA" Ginn ionamin” 
DATA" PRR ene 
LIT FA" Sittoriteopsoy oper 
@ DATA 1 2245eres" 
SB HS=@: 
Q@ DIMSe< 
a 
[Fa] 


FOR AS {T0120 
A REALBS 
144 FORB=1TO11:S#¢A. Bo=MIDS¢Bt, Bs lo NEMTRONESTA 
7 141 IF INT CRNDY 194+. 59=GTHEM14S 
| 142 $€¢5,53 "°S$¢5,792" 0 
| 145 POKESSS79. 25°F RINT!" 
" 15@ GOSUBRLi3e 
| 155 PRIWT: PRINT: PRIWT 
| S? IFCS=STHENPRINT" 2 WIN!" stor 
i} 168 IHPUT"FROM"> ALB 
178 INPUT"TO"SC.D 
188 IFARSCA-Co=1ANDABS (BD =1THENZSA 
196 PRINT" ILLEGAL MOVE": GoTO1ea 
220 IFS#(C+1,0+19="9@"THENHS=HS+1 
230 SCA+L, B+ os" "oO SSeC+1. Dedoe ie 
240 GOSUB1136 
245 PRINT: PRINT: PRINT: PRINT" ": PRINT" i 
| 247 IFHS*6THENFRIMT "YOU WIM! 1" STOR 
2358 Ag="H": GOSUBiaaA 
262 IFFL=1THEN290 
278 At=" "“GOSURIGAa 
| BOQ SECE,Fy=" 4 
305, IFS#<E+G, F+H="*" THENCS=CS+1 
310 sat 
} 328 GOTO1S 


, 1900 M Eat rep ciuo H=a 

| 1610 FL=9 

i] 1820 IFS$¢E.F)¢>"e" THEN 1a 

q 1040 IFSSCE+1 .F+19sASTHENG=1>H=1 
q 1050 IFS#CE+1,F-19=ASTHENG=1 > H=~4 


1060 IFSSCE=1.F+1 @ASTHEMG=—1 > H=t 
| 107@ TFS8CE=1,F-19=ASTHENGs~1:H=~4 
fl 1620 TFG<>GANDHC>GTHEMFL= 1: RETR 
a 110@ E=E+1: [FEDIQTHEME=2:F=F41 

! 1116 TFF>11THEMRETURH 


i12@ GoTo1aia 

1130 PRINTS": FORA=1701@: PRINT FORB=17011 
114@ PRINTS": IFS$¢A. Bo ="@" THEHPR INT Tg" ; 

' 1145 IFS#¢A. Bo="@"THEMPRINT @" ; 

i 1150 1FS#°R. Bo="#" THEMPRINT a" 

) 1155 PRINTSECA, Bo: 

7 1168 HEXT > HEXT 

1172 PRINT: PRINT PRINT" ME CS, "YOU: "HS" megn 
’ 1188 RETUR 


CAVEMAN 


As the Caveman, you must survive in the labyrinth-like cave system for 25 
minutes, battling monsters and finding treasure, while trying to avoid quicksand, 
and blundering into walls and blocked caves. You have five arrows, and each 
monster you kill gains you extra wealth. There are also magic caves, which move 
you randomly through the system. 


This program occupies all but 70 bytes of the memory on the standard VIC so there 
is no room for elaboration. To make sure as many features as possible could be 
squeezed in, PRINT statements are terse to the point of rudeness, 


You start in cave 55. You are shown a view of the system from above at the 
beginning of the program, and from time to time while a game is underway, The key 
to the cave’s contents is: H— you (for human); $— gold; Q — quicksand; a diamond 
shape — a magic cave; a grey square — a blocked cave; and a full stop — an empty 
cave. 


You can move up, down, right or left one square at a time (which you do by entering 
N — north, S — south, E — east or W — west). You can also choose to shoot into an 
adjoining cave, which you do by entering an F. Your cave computer will warn you 
when things are nerby (NEARBY IS. .. GOLD is one typical message), but being a 
Cromagnon VIC 20BC, it tends to malfunction so you only know of the contents of 
one of the surrounding caves, rather than what is in all of them. As well, it does not 
tell you which of the surrounding caves it is talking about. 


A cave is emptied after you leave it, so you cannot revisit a cave containing gold 
over and over again to enrich yourself. If a beastie gets you, you fall into quicksand, 
or run out of air, the game ends with a printout of the system. 


When you run the program, you'll see the words CAVE 55 at the top of the screen, If 
your Cromagnon VIC 20BC has any message for you, it will appear next, followed by 
a number which is the minutes of air you have left, and then a prompt 
questionmark. The computer is waiting for your direction input (N, S, E or W) or a 
decision to fire an arrow (F). If you try to go where there is no path, the message 
BLOCKED CAVE will appear, and you'll have to enter a new direction, If you say you 
wish to fire an arrow when your five are used up, you'll be told you're out of arrows, 
and asked for a new instruction. Good hunting, Caveman. 


38 DIMA HO: 0-0: L=@: G98) AR@6 

40 POKE 5 

Se FORE OLA ACB y=46 

68 IFBCL20R BS 9O0R1Q#INTCB/10>"BOR1LO#INT¢B/109"B-1 THENAC Bei ee 


188 HEM T 
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116 FORB=1 705: RESTORE: FORD=1705 

115 2=IHT¢ (Loe? ER o+1 2° [FACS I= 166THEMLIS 

128 READC: A : 

138 HEMT SHE T 

144 DATALGS. 2198.77.91. 36 

150 FORB=17TOS &: READP< CBO HEAT: DATA-11.-18@.-9.-1.1,9,18,11 
230 EsS5 

248 ACE.=P2 

245 PRIMT" Teeteteia | GOSUBSa4e 

250 Ce LAT CRD 1 oe? 

3A5 IF OQ=QAWDE <> SS THEMGOSWIBSa 46) 

S18 PRIM "Tete AvE YE 

326 [FGRATHEMPR IMT "Memes "9" COLI" 

S38 GOSUBIGGe 

346 PRIMT" xega" 25-H 

355 INPUTZS une 

B62 IF2$="hl" AND: cE 13S1660RU©1 THENPRINT™ aBLOCKED CRYE" (FORT#1TO2 
ta 

375 ACE se46: [F2¢s"M" THEME=E~ 16 

380 IFZ i" THEME SE + 1 & 
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IF 24="E" THENE=E+ 1 

IFE¢="" THEME=E~ 1 

"FE" THENGOSUBEAGE 

IFA LS THEMGOSLIB1 Gen 

FTHENGOSUBZEee 

I THENGOSUBSE08 

IFACE} =38THENGOSLIBA BENE 

HeH+1: [FHSS THENO=9 : GOTOSAER 

FORTSRMDS 1244041 30TO177STEPRNDC 1941942: POKESGATS, T! FORM! 1 TOT MENT 
POKESES76. 200-T :NEMT : POKES6875, 0: POKES6S 76. 
BOTHS5a 


1868 PRINT" SAMAGIC! !" 


1828 iat Bg 'POKESS6S7S. RMD 19#24+8 POKESSSTE, RMDG Lo # 1+ S40° HEMT: POKES 29 
1825 POKESSS76. ACE s46 
1O36 ES LHTO RMD io #Pé+1 29 TFACE 21 667THEM IAS 
144@ RETWRM 
2088 PRINT" SiMOMSTER HERE" 
2Q18 FORT=1 701 Gee: MEM T 
2028 MeRMDCL! TFMC.2THEMPRIMT MIMI T RUNS AWAY RETURM 
2030 PRINT" MMIT’S SEEM 'vOu..." 
2048 FORT=1701000: MEXT 
SQ [FM>.S5THEMPRINT' MAND FLEES"FORT@1TO999 HEMT RETURM 
A PRINT MMAHD EATS VOW!" FORT1TOS990) MENT) Mea GOTAaaeE 
FOR J=1 7020: PRIMNTTABCS#.79 5 "MOHORRORS..." 
FORUS=236TO2S0STEFIO : POKESEG79. RMD 1 #2446 POKMESEETS, 1AG43 
HEXT : POKESES7S, 29: HET 
PRINT" FACTMPRBIIICK SAND! {588 
POR ESESTE. & 
PORTS 1TO1 808: HEYT 
Q=o 
GOTASAAe 
4080 FOR I=1 7020: PRIHTTABSS#> | MOQSEALTH I! 1" FORT=1TOLOaT  NEMT MENT 
S618 ES THT ORMOG 1 #18G04+108 t 
4828 FORU=1 T0108: POKES6S79. PHD 1 2446: POKESSETE, RMD 141 AR LAG MEST POKES a 


SPOKE 
PRIM" ate 


TG » Gl 
OLD WORTH €° Ge Gtk FORT =. TOSOGR HEMT RETR 


A v=1 
LEASE HPO 3 
TFL <3vaeTHENSO2 a 


TFL=46THENRETURN 


J PRINT SeleMHEARE 1S..." 
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~-LGETHENFPRINT" HO PATH" 
<. HEMPR IMT" MAG TE" 
OY THEMPR TMT tices Tere! 
ITHEMPRIMT " OLL SH Sen' 
MS THEMPR TMT "OL ti" 
HEMT RE TUR 
THEMPRINTOMO ARROWS" RETR 


PRINTAR ARR OL 
THP LIT Metis! | St 

bd EPA TURY AR mm AB Sy a PT dE py Rh we | ty! 
aa TNA Be Name pl Ee wee ty 

ce PO oe adr | ek a 
="W"AMDACE Lee TEMS had | YT 
SSeQTHENPR INT MG LUG!) Gere 

WT" eH 7" 
IETS | TOSS EMT LPR oS OTM ae 

HTT bE DY RYE Teh MU TTC RAIN. SLAVE YUE C L ee 
POT ITE Eh" 


FORT 1 TOSGGR MEM TRE TLIRY 
IF G&S THEMGOT OSE 1S if lh 
PRIMT"AO Ale LEP T" 


MT MCOISIRY LVED A! MINUTES FOUND €"°O" OR GoLr" UT 


LO#TMT 1162 THENPRINT 
‘T: [FQ=STHENENT 
RETR 


Weipay 
\ ; 


Appendices 


Error Messages 


BAD DATA. . .String data was received, but program expecting numeric data. 
BAD SUBSCRIPT. . .Element of an array outside of the range specified in the DIM statement. 


CAN’T CONTINUE...The CONT command will not work, either because the program was 
never RUN, there has been an error, or a line has been edited. 


DEVICE NOT PRESENT. . . The required I/O device was not available for an OPEN, CLOSE, 
CMD, PRINT #, INPUT #, or GET #. 


DIVISION BY ZERO. . . Division by zero impossible. 


EXTRA IGNORED...Too many items of data entered, in response to an INPUT statement. 
Only the first few items accepted. 


FORMULA TOO COMPLEX... .String expression should be split into at least two parts. 
ILLEGAL DIRECT...INPUT can only be used within a program, and not in direct mode. 


ILLEGAL QUANTITY...Number used as argument of function or statement out of 
allowable range. 


LOAD...Problem with program on tape. 


NEXT WITHOUT FOR. . Either incorrectly nesting loops, or having a variable name in a 
NEXT statement that doesn’t correspond with one in a FOR statement. 


OUT OF DATA...A READ statement executed but no data left unREAD in DATA statement. 


OUT OF MEMORY. ..No more RAM available. May also occur when too many FOR loops 
nested, or too many GOSUBSs in effect. 


OVERFLOW... .The result of a computation is larger than 1.70141884E + 38. 

REDIM’D ARRAY... .An array may only be DIMensioned once. 

REDO FROM START...Character data was typed in during an INPUT statement when 
numeric data was expected. Just re-type the entry so that it is correct, and the program will 


continue by itself. 


RETURN WITHOUT GOSUB...RETURN statement encountered, when no GOSUB 
command issued. 


STRING TOO LONG... .A string can contain up to 255 characters. 
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SYNTAX...A statement is unrecognizable by the VIC, A missing or extra parenthesis, 
misspelled keywords, etc, 


TYPE MISMATCH, , . This error occurs when a number is used in place of a string, or vice 


versa, 


UNDEF'D FUNCTION, ,.A user defined function was referenced, but it has never been 


defined using the DEF FN statement, 


UNDEF'D STATEMENT, .An attempt was made to GOTO or GOSUB or RUN a line 


number that doesn't exist, 


SCREEN BLK WHT 
BLACK 8 9 
WHITE 24 25 
RED 40 41 
CYAN 56 57 
PURPLE 72 73 
GREEN 88 89 
BLUE 104 105 
YELLOW 120 121 
ORANGE 136 137 
LT. ORANGE 152 153 
PINK 168 169 
LT. CYAN 184 185 
LT. PURPLE 200 201 
LT. GREEN 216 217 
_LT. BLUE 232 233 
LT. YELLOW 248 249 
SPEAKER COMMANDS: 
POKE 36878, X 
POKE 36874, X 
POKE 36875, X 
POKE 36876, X 
POKE 36877, X 


RED 
10 


BORDER haa wad ae 
CYAN PUR GRN BLU YEL 
11 12 13 14 15 
27 28 29 30 31 
43 44 45 46 47 
59 60 61 62 63 
75 76 77 78 79 
91 92 93 94 95 
107 108 109 110 111 
123 124 125 126 127 
139 140 141 142 143 
155 156 157 158 159 | 
171 172 173 174 175 
187 188 189 190 191 
203. 204 = 205-206 ~—— 207 
219 220 221 2222-223 
235 236 237 8 8=—238 ~=—239 
251 252 «253° 254 255 
WHERE X CAN BE: FUNCTION: 
Oto 15 sets volume 
128 to 255 plays tone 
128 to 255 plays tone a 
128 to 255 plays tone © 
128 to 255 plays "noise" 
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COLOR CODES MEMORY MAP 


38554 | | | | 
38642 | | | | 
38862 | |, 


JOYO 
JOY1 


LIGHT PEN 


JOY2 
JOY3 
POT Y 
+5V 
GND 
POT X 


rTNOTNO ORM OOD 


GAME I/O 
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SCREEN CHARACTER CODES 


~_oWwle hr rer ee ee ae 
‘'sPrFREPRP RER ERS 
™=xkeWP HERR R eae 
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Fifty outstanding programs for your 
VIC 20! 


Whatever sort of fun programs you want for your VIC 20, you'll find them in this 
great book. 

ARCADE GAMES — like Zombie Island and Space Fighter 

ADVENTURE GAMES — like Caveman and Space Trek 

BOARD GAMES — like Checkers, Gomoku and Othello/Reversi 

BRAIN STRETCHERS — like Colourmind, Flip and Mento 

GAMBLING GAMES — like Roulette and Craps 

AND MUCH MORE!! 


Write poetry with your VIC, work out your biorhythms, create messages ‘in 

double-sized characters, drive your racing car on the VIC Speedway ... and 

more. Don’t plan on going out too much in the next few months. You won't be able 

to tear yourself away from your VIC 20. 

All programs fit the standard memory VIC 20. Several are supplied with special 

versions so you can use joysticks if you have them. Non-joystick versions are also 
: included. All games have been extensively ‘play-tested’ ... and have passed with 
F: flying colours. 

Another great book from INTERFACE 


ISBN 0 907563 14 7 


